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DICTIONARY OF SYMBOLS USED IN 704 LINEAR PROGRAMMING GODF 



LOCATION 
OCTAL SYVQOL 

01333 SPAREF DFC 



01334 1MAN01 



0133 5 
13 3ft 
01337 
013^0 



2MAND2 
?MAN?D 
HORIGN DFC 
VORIGN DFC 



5120 FOR 819? CORE THIS IS THE ORIGIN FOR TH^ FTA VECTORS OF 
THE CURRENT STAGE 

COMPUTFn RY THE DATA ASSEMBLY FROM THr PARAMETER M THE VALUE 
M + l IS STORED IN THF ADDRESS PART O p THF WORD 

2M + 2 STORFD IN THE ARDRFSS PART OF THr WORD 

?M + 2 STORED IN THE DECRFMFNT PAPT OF THE WORD 

768 ORIGN FOR THE BASIS HEADINGS 

768+M+l ORIGIN FOR THF DOUBLE PRECISION FLOATING POINT BETA 
VECTOR 



01341 WORIGN DEC 768+3^+1 ORIGIN FOR A DOUPI.F PRECISION VECTOR. THIS IS A 

WORK REGION THAT LO*DS THF RIGHT HAND SIDF y^r, j$ 
USED TO COMPUTE PI VECTOR* FTA VFCTOR AND tq 
TRANSFORM A COLUMN VICTOR 



01342 TOR I ON DFC 2048 



ORIGIN FOR CORE STORAGE FOR MATRIX OR ETA VECTORS 
FROM TAPF 



01343 FAZTYP 

01344 ARRTRS 

01345 FAZNUM 
01U6 PRICFX 

01347 FEASYX 



1350 ITFRNO 



01351 STAGES 



01352 DR3LIM 



COMPUTED RY DATA ASSEMBLY FROM THF PARAMETER Z 
ZFRO MEANS PHASE 2 

COMPUTED BY COMPOSITE m C R — J$ TH E NUMBER OF NFGATIVE RASIS 
HEADINGS. THFSE VICTORS ARF TO RE BROUGHT INTO THF BASIS 

COMP'iTEn BY T HE DAT ft ASSFMPLY FPO*' THr PARAMFTFR Q 

COMPUTFD BY THE DATA ASSFM^LY c PO" THF PARAMETER 0. IT IS 

EQUAL TO 20-2 AND IS TWICE THE ROW NO. OF THE FIRST RO« * TO 

BE OPTIMIZED. THE PROGRAM PFniJCES THIS NO AT THE END OF ANY 

PHASE 

COMPUTED BY THE DATA ASSEMBLY FROM THF PARAMETER 0. IT IS 
EQUAL TO 20 AND IS TWICE THE PQW NO. OF THE FIRST ROW ON 
WHICH FEASIBILITY MUST P-E MAINTAINED* IT I S REDUCED AT THF 
END OF PHASF ONE AND RFMA. INS AT THF SaMF VALHE AFTER F*ZTY D 
EQUALS ZERO 

ITERATION NUMRFP — THIS NO. IS RESET TO ZERO WHENEVER THE 
INVERSION ROUTINE IS USED 

THE NUMRER OF END OF STAGE PROCEDURES THAT HAVE BEEN DONE. 
IF THE STAGE MO. -IS NOT ZERO* THERE APE FTA VECTORS ON TAPE 

CURRENT NO. OF WORDS USED TO - c TORE THF FTAS 0^ THE CURRFMT 
STAGE. WHEN' THIS EXCEEDS DR3FND* END ^TAGF 



01*53 0P3FMH DFO ?0&?-?m-? POP i^oA C opc 

?0fi6-?v-? FOR 819? CORF 

TMCSF NUMRFPS ARE COMPUTED BY THF DaTA ASSFmr. Y. T HT<^ t < 
THF^LIMITING MO. OF WORDS AVAILABLE ' FOp FTa" VECTORS IN ONE 

01354 TPALTP PZE 0.0,1 TAPE ALTERNATOR CONTROLS THE READING OF TAPE 3 OR 

TAPE 4 WHEN COMPUTING THF PI VECTOR. THF taPFPFAO 
IS TAPE 4 MINUS THE ADDRESS OF TPALTR. TH* DATA 
ASSEMBLY SETS THIS CELL WITH ONF IN TM F nFCRFMFNT 
AMD ZERO IN TKF ADDRESS. AT AN FNH OF STAGr' Tw rcp 
NUMRFPS ARE IMTFRCHANCFf). " 

o!^6 srlnJ ^ 1024 " CALHI AND SCALL0 ^PRESENT A FIXED POINT DOUPLF 
1 56 SCAU ° n C PRFCISION MUmrcr. THIS Ts THp F/p used ! T q ^ADT THc 

COMPUTATION OF PI. NORMALLY IT IS ON- R.JT ANOTHER 
VALUE MAY p F LOADED SUBJECT TO SFNSF SWITCH 6 Wh'n 
LOADING DATA OR AFTFR FFASIRl.F SOLUTION STOP 

0135? mcrtrA TRA MCRORG THIS TRANSFFR IS USED R y THE PICKUP FR * DPU m S UR 

ROUTINE AND R v THF FXFCUTIVF LOADER ' "' 

-1360 INDEXR 

°1361 IMDFXS 



c 



THF DFCRFMENT CONTAINS TWICE THF INDFX NO. OF THE 
POSITION IN The PASTS THAT WaS CHANGED 

THE NAMF OF THE VECTOR SELFCTFD TO COMF j NT0 TH F 
BASIS. IT IS STORED IN *TD " 



^136? SPARP1 TEMPORARY STORAGE 

01 ' 6? SPAPP? TE MPORARY STORAGE 

01364 AORIGN 



13*5 ROBIGN 



ORIGIN FOR VECTOR LOCATIONS IS USER RY SUBROUTINES. 
IN CODF 8 AORIGN EQUAL ZERO T&ANSFFR*; CO*'TPOL ' T0~~ 
INVERSION ALGORITHM FOP SELECTION OF INDExr" 

ORIGIN FOR VFCTOR LOCATIONS IS USED RY SUBROUTINES 

n\l$* %*%* a^'thLtic " 10 " """"" MSFD AS A ?CALAR ™ VP ™ 

0^71 ?™lt! ?°" RLF PRrr - rC - 0N M ,W «PR STORAGE USFD FOP COMPARISON 

l.J^a LOWEST IN SFAPOH F P MINIMI.JV n/j OP THFTA ■ ,5 ° 

01?7? LOMAXV ST0R " GF L0CATI0W F0 " VALUF OP CURRFNT OPTICAL 

n^74 PPCOHF STOPAGF FO" PPTNT O0RE 



-!' a 75 STATUS 
01376 CPOXON 



WHEN CELL IS NON-ZERO THFRE APF ^GATIVF VALUED IN 
THF SOLUTION VECTOR — INFFAcTPj.F SOLUTION 

THF DISTRIBUTOR STORFc T HF Comfit* OF P'RFX 
RFGISTFR A IN THE DFCPFmfnT — IS THE rxiTEROM THE 



SUB ROUT INF 



T s 



01^77 



CBOXTW 



USED BY 5! IB ROUTINES TO STORF CONTENTS OF AN INDEX 
REGISTER IN THE DECREMFNT 

STORE SOLUTION PUTS THF CHFO' SUM OF INFORMATION 
GOING ON DRUM INTO THIS CELL 



SUB ROUTINE SYMBOLS 

LDATA CODF 1 

STSOL CODE 2 

FORMC CODE ? 



BTRAN 


CODE 


A 


PRICE 


CODE 


5 


LDFLV 


CODE 


6 


FTRAN 


CODE 


7 


CHUZR 


CODE 


8 


ELIMN 


CODE 


9 


YTODP 


CODE 


10 



YTOXM 



CHECK 

PRINT 
RERYT 

PIKUP 



OR 



CODE 10 



CODE 11 

CODE 12 
CODE 13 

CODF 19 



LOADS BINARY DATA 

STORES K* H» V, REGIONS ON DRUM 1 

FORM ROW F/I FOR COMPUTING PT. NOTE IF THERE ARF 
INFEASIBLF BETAS 

COMPUTE ROW VECTOR PI 

PRICE THF MATRIX* CHOOSE VECTOR TO BRING INTO BASIS 

LOAD VECTOR CHOSEN IN CODE 5 IN SPECIFIED REGION 
AS A DOUBLE PRECISION FLOATING POINT VECTOR 

TRANSFORM COLUMN VECTOR IN TERMS OF INVFRSE OF 
Cu|f?ENT BASIS 

Elf) MINIMUM THETA — SELFCT POSITION IN BASIS TO 

CHj|NGE 

COMPUTE ETA VECTOR AND TRANSFORM BETA 

Fdj A096 CORE STORAGF 

CQIDENSE FTA VECTOR TO INDEXFD NON ZERO ENTRIES 

STORE ON DRUM 3 

FOR 8192 CORE STORAGF 

COiOENSE ETA VECTOR TO INDEXED NON ZERO ENTRIFS 
STfRE IN CORE STORAGE STARTING WITH LOCATION 
SP|CIFIFn BY SPARFF 

MU|TIPLY MATRIX TIMES BETA VECTOR AND SUBTRACT 
RIfHT HAND SIDE, LEAV RESULT AT TORIGN AND U» 

PRINT PROGRAM 

fNQ OF STAGE PROCEDURF — TRANSFERS ETA VECTORS 
FRlM DRUM 3 OR STORAGE TO TAnF AND PUNCHF« BINARY 
CAlDS FOR <♦ H» AND V REGIONS 

f 
AUl|? w ATIC RESTART PROGRAM FROM DRUM — RESTORF 
CO» STORAGF AND TRANSFFRS -CONTROL TO COMPUTE NEXT 
ITWATION UNLESS SFNSF SWITCH 2 IS DOWN. THEN IT 



CALLS FOR A NEW MCR FROM CAPrvS A^D HALTS 



\ 



OTHER POUT I NFS 
DRPOOT 
DISTRB 

FXFCLD 



ROOTSTRAP ROUTINF FROM DRUM 1 — TRAN^FRS CONTROL TO PIKUP 

RFCALLS SRFCIFIFD SUP ROUTINF FPOV DRUM. CONTAINS A TAPlF 
WHICH LOCATE TH r Sl.!R ROUTINF 

MASTFR LOAD PROGRAM FOR SUP ROUTINES AVD MCR. CRFATFS THE 
DRUM TAPLF FOR DISTRP. TRANSFERS CONTROL TO THE MCR AFTFR 
PROGRAM DECK HAS °FFM LOADED 



NOTES ON LOADING 

THf r FIRST LOADER OF THF DECK LOADS DRROOT* THE DOmBLF PRECISION FLOATING 

POINT SUBROUTINESfDlSTRP ♦ AND EXECLD.THF TRANSFER CARD AT THF FND OF EXECLD 

TRANSFERS CONTROL TO THE FIRST LOCATION OF FXFCLD. 



/ 



ZTABLE 00747.00747 



00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 
00012 



00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00650 



00000 
00000 
00000 
00001 
00013 
00001 
00020 

ooon 

00750 
00005 
00012 
00700 



1 00011 4 
70000 4 
2. 0O001 4 
70000 
53*00 4 
70000 A 

2 00001 4 
50000 
02000 

+000000000727 

+000000000023 

00020 
00020 

-0 60000 00002 
30000 00000 
lflOO 00632 
60100 00003 

-0 60000 00004 
5O000 00002 
30000 00001 

-0 76000 00001 
0?000 00622 
76000 00000 
14000 00622 

-0 30000 00004 
16100 00624 
30000 00003 

-0 60000 00002 
30000 00002 
16100 00632 

-0 14000 00635 
02000 4 00001 
5^000 01300 
56000 01300 
14000 00635 
02000 4 00002 
60100 00000 

-0 60000 00001 
56000 01366 
26000 00000 

-0 14000 00652 
77100 00001 

-0 76000 00001 
02000 4 00001 
16100 00647 
50000 01300 
56000 01300 



COMMON 

DRROOT 



MCRORG 
DPFAOO 



ADUNFL 



ADOVFL 



DPFMUL 



MPOVFL 



ORG 
BSS 
ORG 
TX1 
CPY 
TIX 
CPY 
LXA 
CPY 
TIX 
CLA 
TRA 
DEC 
DFC 
ORG 
BSS 
STQ 
FAD 
TOO 
STO 
STQ 
CLA 
FAD 
PBT 
TRA 
CLM 
TOV 
UFA 
TOO 
FAD 
STQ 
FAD 
TQO 
TNO 
TRA 
CLA 
LDQ 
TOV 
TRA 
STO 
STQ 
LDQ 
FMP 
TNO 
ARS 
PBT 
TRA 
TQO 
CLA 
LDQ 
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16 

1*4»9 

11#4 

1.4.1 

MCRORG 

9»4 

ZTABLE+1.4 

5.4.1 

10 

DISTRB 

471 

19 

16 

375 

C0MM0N+2 

COMMON 

ADOVFL+2 

COMMON+3 

COMMON+4 

COMMON+2 

COMMON+1 

ADUNFL+4 

ADUNFL+4 

COMMON+4 

ADUNFL+6 

COMMON+3 

COWMON+2 

COMMON+2 

ADOVFL+2 

ADOVFL+5 

1*4 

NOUGHT 

NOUGHT 

ADOVFL+5 

2.4 

COMMON 

COMMON* 1 

HISCAR 

COMMON 

MPOVFL+5 

1 

1.4 

MPOVFL+2 
NOUGHT 
NOUGHT 



ALPHABETIC FOR UA 



NO WORDS IN MCR DPFADD DPFMUL AND DISTRB - 1 



ADDEND IN ACC-MQ. AUGEND IN 

CQMMON-COMMON+1 
LO-PART OVERFLOW IMPOSSIBLE 
IF HI-PART ZERO SO IS LO-PART FOR 

NORMALIZED NUMBERS 



OVERFLOW IMPOSSIBLE ON LO-PARTS 
UNDERFLO IMPOS IF Hl-PARTS OVERFLOWED 
CLEAR ACC TOGGLE 

CLEAR MQ TOGGLE 

ALIGN CHARACTERISTICS 



CLR TOGGLE AFTER DOUBLE UNDFLO 

MUL-ND IN ACC-MQ » MUL-ER IN 
HISCAR-LOSCAR 

HI BY HI 

CHECK FOR OVFLO OR UNDFLO IN ACC 

CHECK FOR UNDFLO IN ACC 

CLEAR MQ TOGGLE 



z 



00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
0066? 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
O0675 
00676 
00677 

00700 
00701 
00702 
00703 
00 704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 

00747 

01300 
01301 
01302 
01303 
01304 
01305 
01306 
01307 



0?000 00676 

16100 00647 

60100 00002 

-0 60000 00003 

56000 01366 

-0 26000 00001 

60100 00004 

-0 60000 00005 

56000 01367 

-0 26000 00000 

16100 00671 

60100 00000 

-0 60000 00001 

50000 00001 

-0 30000 00005 

-0 30000 00000 

-0 30000 00004 

-0 30000 00003 

16100 00674 

30000 00002 

16100 00647 

-0 14000 4 00002 

0?000 4 00001 

00700 

4 0/376 

4 00000 

4 00704 

00723 

4 00747 

00022 

00717 

00722 



-0 63400 
73400 

-3 00000 
50000 
40000 
77100 
62100 
62100 



77100 00017 
40000 00723 
62100 00713 
76200 00000 
50000 4 00747 



46000 
-0 73400 



2 
-0 7^400 

a 02000 

00750 



00747 

00000 



70000 4 00000 
00001 4 00717 

4 

4 





00000 
00000 
00301 
00747 
ooooo 00000 
00750 
+000000000000 
+000000000001 
+000000000002 
+000000000003 
+000000000005 
+000000000200 
+000000000205 
+000000000215 



MPYSUM 



CAROVF 



DISTRB 



DRSEL 



LDRTN 



TABLE 

SRORIG 
NOUGHT 
ONEADR 
TWOADR 
THREEA 
FTVEAD 
128ADR 
133ADR 
141ADR 



TRA 

TQO 

STO 

STG 

LDQ 

UFM 

STO 

STG 

LDQ 

UFM 

TQO 

STO 

STQ 

CLA 

UFA 

UFA 

UFA 

UFA 

TQO 

FAD 

TQO 

TNO 

TRA 

HED 

SXD 

PAX 

TXL 

CLA 

ADD 

ARS 

ST A 

ST A 

ARS 

ADD 

STA 

RDS 

CLA 

LDA 

PDX 

CPY 

TIX 

PDX 

TRA 

HTR 

BES 

PZE 

BSS 

DEC 

DFC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 



CAROVF 

MP0VFL+2 

COMM0N+2 

C0MM0N+3 

HISCAR 

COMMON+l 

C0MM0N+4 

COMMON* 5 

LOSCAR 

COMMON 

MPYSUM+3 

COMMON 

COMMON+l 

COMMON+l 

COMMON+5 

COMMON 

C0MM0N+4 

COMMON+3 

CAROVF-2 

COMMON+2 

MPOVFL+2 

2t4 

1*4 

CB0X0N#4 

0»4 

DISTR8+4»4 

LDRTN+4 

TABLE, 4 

18 

LDRTN 

LDRTN+3 

15 

LDRTN+4 

DRSEL 

TABLE»4 

TABLE»4 

0»4 

0,4 

LDRTN, 4,1 

0,4 

0,4 

193»0»SRORIG 

19 

216 

1 

2 

3 

5 

128 

133 

141 



TEST FOR UNDFLO IN MQ 



HI BY LO 



LO BY HI 

TEST UNDFLO IN LO-LO PRODUCT 



SUM OF LO~L0 PARTS 

SUM OF CARRIES TO FINAL LO PART 

CHECK OVFLO FROM CARRIES 

HEADING FOR DISTRIBUTOR EXCEPT DISTRB 

TEST FOR CODE *SUB-MCR) 



OR 1 IN PREF, NO ORDERS IN DECR» , DR» AD- 
♦SPACER) DRESS IN ADDRESS 

FIXED CONSTANTS-STANDARD THRUOUT 



01310 


+200^00^00000 


TRUHAF 


OCT 


2O0000O0O0O0 


01311 


+377777777777 


INF I NY 


OCT 


377777777777 


01312 


+ O33oonooooo n 


27CHAR 


OCT 


O330O000O0OO 


01313 


+066000000000 


54CHAR 


OCT 


066000000000 


01314 


+146000000000 


FL7ER0 


OCT 


146000000000 


01315 


+2014OQ0000O0 


FLUNTY 


OCT 


201400000000 


01316 


+3770^0000000 


MASKCH 


OCT 


377000000000 


01317 


-000777777777 


MASKER 


OCT 


-000777777777 


01320 


+000O00077777 


MASKAD 


OCT 


000000077777 


01321 


-377777700000 


MASKNA 


OCT 


-377777700000 


01322 


+077777000000 


MASKDE 


OCT 


077777000000 


01323 


+000000002000 


DPFXUN 


DEC 


1024 


01324 


+0O0000003000 


. BORORG 


DEC 


1536 


01325 


+000000002000 


PDRORG 


DEC 


1024 


01326 


+000000001000 


EDRORG 


DEC 


512 


01327 


+000000000750 


KDRORG 


DEC 


488 


01330 


+000000001050 


HDRORG 


DEC 


552 


01331 


+000000001450 


VDRORG 


DEC 


808 


01332 


+0314O0000000 


BORROW 


OCT 


031400000000 


01333 


+000000012000 


SPAREF 


DEC 


5120 




01334 




ORG 


SPAREF+1 


01334 


+000000000000 


1MAND1 


DEC 




01335 


+000000000000 


2MAND2 


DEC 




01336 


+000000000000 


2MAN2D 


DEC 




01337 


00000 01400 


HORIGN 


P?E 


768 


01340 


+000000000000 


VORIGN 


DEC 




01341 


+000000000000 


WORIGN 


DEC 




01342 


OnOOO 04000 


TORIGN 


P7E 


2048 




01343 




ORG 


TORIGN+1 


01343 


+0O0H00000000 


FA7TYP 


DEC 




01344 


+000000000000 


AR8TRS 


DEC 




01345 


+000000000000 


FAZNUM 


DEC 




01346 


+000000000000 


PRICEX 


DEC 




01347 


+000000000000 


FEASYX 


DEC 




01350 


+000000000000 


ITERNO 


DEC 




01351 


+000000000000 


STAGES 


DEC 




01352 


+000000000000 


DR3LIM 


DEC 




01353 


+000000003772 


DR3END 


DEC 


2042 


01354 


00001 00000 


TPALTR 


PZE 


0»Ofl 


01355 


+000000002000 


SCALHI 


DEC 


1024 


01356 


+000000000000 


SCALLO 


DEC 




01357 


02000 00020 


MCRTRA 


TRA 


MCRORG 


01360 


+000000000000 


INDEXR 


DEC 




01361 


+000000000000 


TNDEXS 


DEC 




01362 


+000000000000 


SPARP1 


DEC 




01363 


+000000000000 


SPARP2 


DEC 




01364 


+000000000000 


A0R1GN 


DEC 




01365 


+000000000000 


BORIGN 


DEC 




01366 


+000000000000 


HISCAR 


DEC 




01367 


+000000000000 


LOSCAR 


DEC 




O1370 


+000000000000 


HIBEST 


D C C 




01371 


+000000000000 


LOBES T 


DEC 




01372 


+000000000000 


HIMAXV 


DFC 




01373 


+000000000000 


LOMAXV 


DEC 




01374 


+000000000000 


PRCODE 


OEC 





ORIGIN ON DRUM 4 OF RT-HAND SIDE 

PRICING VECTOR 
PLP CHANGE VECT 

ORIGIN ON DRUM 1 OF CONSTANTS 

H-REG I ON 
V-REGION 



PR08LEM CONSTANTS-VALUES PROVIDED 
BY DATA ASSEMBLY 



FIXED LOCATIONS-ZERO INITIALLY 



¥ 



01375 


+000000000000 


STATUS 


DFC 




01376 


+000000000000 


CBOXON 


DEC 




01377 


+000^00000000 


ceoxTw 


DEC 












03000 




ORG 


1536 










03000 


X 


HED 




03000 





53400 


5 


03052 


EXECLD 


LXA 


COUNT* 5 


03001 





76600 





00301 




WDR 


1 


03002 





53400 


1 


03003 




LXA 


SBOOT tl 


03003 





70000 


1 


00013 


SBOOT 


CPY 


11*1 


03004 


2 


00001 


1 


03003 




TIX 


SBOOT *1«1 


03005 





77200 


4 


00206 




REW 


6*4 


03006 


2 


00001 


4 


03005 




TIX 


SB00T+2*4*1 


03007 





76000 





00163 




SWT 


3 


03010 





0?000 





03012 




TRA 


REW6+1 


03011 





77200 





00206 


REW6 


REW 


6 


03012 





5O000 





01336 




CLA 


2MAN2D 


03013 





77100 





00022 




ARS 


18 


03014 





60100 





01335 




STO 


2MAND2 


03015 





77100 





00001 




ARS 


1 


03016 





60100 





01334 




STO 


1MAND1 


03017 


-0 


53400 


1 


03052 




LXD 


COUNT tl 


03020 


-0 


53400 


2 


03053 




LXD 


C0UNT+1*2 


03021 





50000 





03056 




CLA 


COUNT+4 


03022 





60100 





00020 




STO 


PREFAC 


03023 





76200 





00321 


RTNRD 


RCD 




03024 





70000 





OOOOO 




CPY 


COMMON 


03025 


-0 


60000 





00002 




STQ 


COMMON+2 


03026 





76300 





00021 




LLS 


17 


03027 





73400 


4 


OOOOO 




PAX 


0»4 


03030 





40000 





OOOOO 




ADD 


COMMON 


03031 





70000 


o 


00001 




CPY 


COMMON+l 


03032 


-3 


ooooo 


4 


03057 




TXL 


CLERK.4 


03033 





62100 





03037 




STA 


RECVR 


03034 





62100 





03040 




STA 


RECVR+1 


03035 





67100 





03106 




STA 


FILER 


03036 


-0 


50000 





OOOOO 




CAL 


COMMON 


03037 





70000 


4 


OOOOO 


RECVR 


CPY 


0»4 


03040 





36100 


4 


OOOOO 




ACL 


0*4 


03041 


2 


ooooi 


4 


03037 




TIX 


RECVR»4*1 


03042 





60200 





OOOOO 




SLW 


COMMON 


03043 





50000 





OOOOO 




CLA 


COMMON 


03044 





40200 





00001 




SUB 


COMMON+l 


03045 





10000 





03047 




TZF 


CDRDR 


03046 





47000 





00600 




HPR 


384 


03047 





76200 





00321 


CDRDR 


RCD 




03050 





70000 





OOOOO 




CPY 


COMMON 


03051 





02000 





03026 




TRA 


RTNRD+3 


03052 





04001 





00004 


COUNT 


P7E 


4*0*2049 


03053 





00331 





00750 




PZE 


SRORIG*0*217 


03054 


1 


ooooo 





OOOOO 




TXI 




03055 





ooooo 





02450 




PZE 


1320 


03056 





02000 


4 


00001 




TRA 


1*4 


03057 





50000 





00001 


CLERK 


CLA 


COMMON+l 


03060 


-0 


17000 





03132 




TMI 


STMCR 


03061 


-0 


10000 





03064 




TN7 


INTLD 



HEADING FOR EXEC LDER EXCEPT PREFAC-EXECL 



SET UP CONSTANTS FOR INITIALIZATION 
LACKING IN ORIGINS CARD 



SET UP RETURN FOR CODES WITH NO PREFACE 



SAVE FIRST V AND R OF SET 



COPY CHECK SUM OR TITLE 
TEST FOR TITLE CARD 



600 ERROR STOP 



TABLE ENTRY BLANKS FOR DR. 2 
INTERLUDE RETURN INSTR. 



O?062 


o 


50200 00002 




CIS COMMON+2 


03063 





02000 03066 




TRA INTLD+2 


03064 





07400 4 00020 


INTLD 


TSX PREFA04 


03065 





50200 03053 




CLS COUNT+1 


03066 





40000 03106 




ADD FILER 


03067 





73400 4 00000 




PAX 0.4 


03070 


-0 


63400 4 03072 




SXD TDR2»4 


03071 


-0 


6*400 4 03073 




SXD TDR1»4 


03072 


2 


00000 1 03076 


TDR2 


TIX STDR2»1 


03073 


2 


0O000 2 03103 


TDR1 


TIX 5TDR1»2 


30 74 





42000 00607 




HPR 391 


03075 





02000 03021 




TRA RTNRD-2 


03076 





76600 00302 


STDR2 


WDR 2 


03077 


-0 


63400 4 03054 




SXD COUNT+2 »4 


03100 





76000 00144 




SLN 4 


03101 





46000 03054 




LDA COUNT+2 


03102 





02 n 00 03106 




TRA FILFR 


03103 


o 


76600 00301 


STDR1 


WDR 1 


03104 


-0 


63400 4 03055 




SXD C0UNT+3»4 


03105 





46000 03055 




LDA COUNT+3 


03106 





70000 4 00000 


FILER 


CPY 0»4 


03107 


2 


00001 4 03106 




TIX FILER»4»1 


03110 


-0 


53400 4 00001 




LXD C0MM0N+1»4 


03111 


~0 


76000 00144 




SLT 4 


03112 





02000 03116 




TRA FILER+8 


03113 





76000 00144 




SLN 4 


03114 





50000 03054 




CLA COUNT+2 


03115 





07000 03117 




TRA FILER+9 


^3116 





50000 03055 




CLA COUNT+3 


03117 





60100 4 00747 




STO 2TABLE»4 


03120 


-0 


32000 03131 




ANA MASK 


03121 





77100 00022 




ARS 18 


03122 





40000 4 00747 




ADD ZTA8LE.4 


03123 


-0 


76000 00144 




SLT 4 


03124 





02000 03127 




TRA UPDR1 


03125 





60100 03054 




STO COUNT+2 


03126 





02000 03021 




TRA RTNRD-2 


03127 





60100 03055 


UPDR1 


STO COUNT+3 


03130 





0?000 03021 




TRA. RTNRD-2 


03131 


+077777000000 


MASK 


OCT 077777000000 


03132 


-0 


5^400 4 03153 


STMCR 


LXD MCRCT.4 


03133 





76600 00301 




WDR 1 


03134 





4ft000 03153 




LDA MCRCT 


03135 





7O000 4 00750 




CPY 2TABLE+1.4 


03136 


2 


00001 4 03135 




TIX STMCR+3»4»1 


03137 





76200 00303 




RDR 3 


03140 





53400 3 03154 




LXA HDRTR»3 


03141 





70000 1 03170 


TRHDR 


CPY HDRTR+12tl 


03142 


2 


00001 1 03141 




TIX TRHDR*ltl 


03143 





76600 00302 




WDR 2 


03144 


o 


70000 2 03170 




CPY HDRTR+12»2 


03145 


2 


00001 2 03144 




TIX TRHDR+3«2»1 


03146 





50000 03150 




CLA TDATA 


03147 


c 


34000 01357 




CAS MCRTRA 


03150 





O700O 00020 


TDAT* 


k TRA MCRORG 



ORIGIN SUB-MCR 

GO INITIALIZE SUB-ROUT 

NO. WORDS IN ROUTINE 



607 ERROR STOP {ROUTINE TOO BIG FOR DRUMS 
LD NEXT ROUTINE AND IGNORE ONE IN HSS 



CODE NUMBER 



MOVE HEADER FROM DR 3 TO DR 2 



03151 





0?000 





00022 




TRA 


MCRORG+2 


03152 





0,?000 





00020 




TRA 


MCRORG 


03153 





0^730 





00013 


MCRCT 


HTR 


11«0«472 


03154 





00000 





00014 


HDRTR 


P7E 


12 










00020 


PREFAC 


SYN 


MCRORG 










00747 


7TABLF 


SYN 


DISTRB+39 










03000 




END 


EXFCLD 



NO. WORDS IN MCR DPFADD DPFMPY DISTRB 



1 



7TARLE 


or 


74 7*00 747 
















00750 




ORG 


SRORIG 










00750 


A 


HFD 




00750 


r. 


7400 


4 


01047 


LDATA 


TSX 


CDR0R>4 


00751 


Q 


07400 


4 


01047 




TSX 


CDRDR»4 


007 52 


f\ 


76600 


r- 


00304 




V'DR 


4 


0^753 





50 000 


O 


01341 




CLA 


VORIGN 


O0754 


n 


AOOOO 


O 


0137 5 




ADD 


2MAND2 


00 755 


fi 


62100 


O 


00761 




*TA 


STORB+1 


00756 


'■- 


62100 


■"■. 


0O777 




5TA 


STORE 


757 


o 


46000 





01324 




LDA 


BDRORG 


00 760 


.-J 


5 "'.400 


7 


01335 


STORB 


LXA 


2MAND2»7 


00761 


--* 


70000 


2 


0000 




CPV 


0,2 


0076? 


9 


0000 1 


2 


00 761 




TIX 


STORB+1,2. 


00763 


n 


76000 





00 161 




SLT 


1 


76 A 


o 


0?000 


r\ 


010O1 




TRA 


MATRX 


00 76 5 


n 


0?000 





01074 




TRA 


TPLP1 


00766 





76600 





00304 




'a'DR 


4 


00767 


■ ^ 


5O000 


r, 


01342 




CLA 


TORIGN 


0077:- 





40^00 





013 3 5 




ADO 


2 M AND 2 


00771 


n 


62100 





0077? 




■^TA 


OMFGA 


00 77? 





70OOO 


4 


00 


OMEGA 


CPY 


0,4 


773 


? 


0O001 


4 


0077? 




TIX 


OMEGA ,4,1 


00 774 





7400 


4 


01047 




TSX 


CDRDR.4 


00775 


o 


76600 




00304 




V'DR 


4 


00 776 


n 


46000 


s* 


0132 6 




LDA 


EDRORG 


00 777 


n, 


70000 


1 


00 0O0 


STORE 


CPY 


Otl 


010QO 


? 


00 0.0 1 


1 


00777 




TIX 


STORE ,1,1 


01001 





5o000 


/■t 


00001 


MATRX 


CLA 


COMMON* 1 


010 0? 


-0 


12000 


n 


01016 




TMl 


HEDER 


o 1 3 


n 


7400 


4 


01047 




TSX 


CDRDR.4 


0100 4 


p, 


50OOO 


r\ 


010 1 




CLA 


FILER 


01A05 




4o?00 





01342 




SUB 


TORIGN 


01006 


O 


7340O 


1 


000OO 




PAX 


0,1 


01 00 7 





7660 





00 22 5 




WTB 


5 


01010 





70OOO 


1 





FILER 


CPY 


0.1 


01011 


2 


OOOOI 


1 


01010 




TIX 


FILER.W1 


0101? 





50OOO 





00001 




CLA 


COMMON+1 


1013 


,"\ 


l?ooo 





01003 




TPL 


MATRX+2 


01014 





77000 





00? 5 




wpp 


5 


1015 





7 7200 





002 5 




REV 


5 


01016 


5 


7400 


4 


0104 7 


HFD^R 


TSX 


CDR0R.4 


01017 





50OOO 





01342 




CLA 


TORIGN 


J '."• 2 


;~ 


40000 





01024 




ADD 


TWELV 


01021 


n 


67100 





01025 




STA 


STOHD 


010?? 





76 600 





00302 




wr>p 


? 


01023 





53400 


2 


01024 




LXA 


TWELV,? 


01024 


o 


76100 





000/4 


TWELV 


NOP 


12 


01025 


n 

U 


70OOO 


2 


00000 


STOHD 


CPY 


0,2 


n 1 ? 6 


? 


00001 


? 


010 2 5 




TIX 


STOHD ,2,1 


01027 


n 


76000 





00166 




S'«'T 


6 


01030 





2 





1 3 4 




TRA 


5ETMX 


"103] 


r-> 


7*200 





00321 




PCD 




1 3 2 


Q 


7^000 


P; 


013 55 




CPY 


SCALHI 



GO LOAD PROS CONST S H-REG V-REG 
60 LOAD B IN W-REG OMEGA IN T-REG 



TEST FOR PLP 



GO READ CHANGE VECTOR 



TEST FOR NO MATRIX 



NO. WORDS IN MATRIX RECORD 



READ HEADER CARD 



STORE JOB HEADER IN PRNT ROUT 



TEST FOR SCALE FACTOR CARD 



i 



01033 


'J 


70 





013 5 6 


CPY 


SCALLO 


01034 





5 


Q 


01 340 


SETMX CLA 


V0R1GN 


10 3 5 


q 


40 000 


/-i 


01346 


A OD 


PRICEX 


01036 


!~\ 


6? 100 


r\ 


01041 


STA 


SETMX+5 


1 3 7 


o 


4n A 00 





013O1 


ADO 


ONE ADR 


oi 0/(0 


~) 


6^100 





01042 


STA 


sftmx+6 


1 o 4 1 


r\ 


50000 





OOOOO 


CLA 




o 1.042 


•"l 


5 <, A 


r\_ 


^ 


LDO 




01043 


Q 


60100 


r\ 


013 77 


STO 


HIMAXV 


n\ 044 


-0 


6o0^o 


r\ 


013 73 


c JO 


LOMAXV 


1045 


-0 


57400 


i\ 


01376 


LXD 


CB0X0N»4 


"■1^46 


o 


2-000 


4 


00001 


TRA 


1*4 


01047 





76200 





00321 


CORDR RCD 




01 050 


r, 


7o'":00 





00000 


CPY 


COMMON 


01051 


o 


76300 





000 7 1 


LLS 


17 


01052 





7*400 


2 


OOOOO 


PAX 


0,2 


01053 


;") 


4OO0 


.-1 


OOOOO 


ADD 


COMMON 


01054 


o 


7aooo 





0000 1 


CPY 


C0MM0N41 


010 55 


3 


ooooo 


7 


01057 


TXH 


SFTUP»? 


"1056 





opo^o 


4 


00001 


TRA 


1»4 


01057 


o 


6?100 


p 


010 63 


SETUP STA 


RECVR 


01060 


Q 


6710^ 





OK' 64 


ST A 


RFCVR+1 


01061 


r\ 


67100 





01010 


ST A 


FILER 


01062 


-0 


50OOO 





OOOOO 


CAL 


COMMON 


01063 


n 


70000 


2 


00000 


RECVR CPY 


0»2 


01064 


Q 


36100 


2 


OOOOO 


ACL 


0,2 


01065 


2 


00001 


2 


01063 


TIX 


RECVR *2» 


01066 





6O?00 





OOOOO 


SLW 


COMMON 


01067 


n 


50000 





OOOOO 


CLA 


COMMON 


01.070 





40700 





00001 


SUR 


COMMON+l 


01071 





^OOOO 





01047 


T7F 


CDRDP 


010 72 


o 


4?00o 





00610 


HPR 


392 


N 10 73 





2000 





01047 


TRA 


CDRDR 


01074 


<"t 


76000 





00141 


TPLP1 SLN 


1 


01075 





50OOO 





00001 


CLA 


COMMON+l 


01076 





;]r.r>00 





00 766 


TZF 


STORB+6 


01077 





76000 





0014? 


SLN 


7 


01100 


o 


76700 





00321 


RCO 




1101 




O7OOO 





00 7 74 
0002C 
00070 


TRA 

ORG 

R HFD 


STOPE-3 
MCR0R6 


00020 





50OOO 





013 30 


PPEF02 CLA 


HDRORG 


000 21 





4O200 





01327 


sue 


KDRORG 


000?2 


n 


40OOO 





01334 


ADD 


1MAND1 


00023 




6O100 





00773 


STO 


COUNT 


000 24 


o 


50000 





013 3 7 


CLA 


HORIGN 


00025 





40OOO 





01334 


ADD 


1MAND1 


000 2 6 





62100 


,""; 


0075? 


ST A 


KH5UM 


00O27 


o 


67100 





00763 


ST A 


K2DRM 


00 30 


f\ 


30000 





O1340 


cn 


VORTGN 


00031 


o 


40000 





01335 


ADD 


2MAND2 


000 3 2 





67100 





00756 


ST A 


VSUM 


000 3 3 


o 


67100 





00 76 7 


ST A 


K2DRM+4 


00034 


o 


7000 


4 


00001 

00750 


TRA 
ORG 


1*4 

SRORIG 



610 ERROR STOP 

TEST FOR FIRST TIME IN PLP 



SIGNAL TO MCR TO TRANSFORM E 
PASS OVER BLANK CARD 



NO OF WORDS IN CONSTANTS AND H 



00750 





50000 





01300 


STSOL 


TLA 


NOUGHT 


00751 





60100 





01377 




STQ 


CROXTW 


0075? 





5 3 40O 


3 


00773 




LXA 


COUNT, 3 


00753 





36100 


1 


OOOoo 


<M?UM 


ACL 


0*1 


00 754 


? 


00 001 


1 


00 753 




TIX 


KHSUM,1,1 


00755 





5340 


5 


01335 




LXA 


2MAND2.5 


0075ft 





36100 


1 


00000 


VSUM 


ACL 


0.1 


00757 


? 


00001 


1 


00756 




TIX 


V SUM .1,1 


00 760 


;-) 


6o?0 





013 77 




C I ►•? 


CBOXTW 


00 761 





76 600 





00301 




'-.'DR 


1 


00762 





46000 





01327 




LPA 


KDRORG 


00763 


;'} 


70000 


2 


OOQoo 


K200M 


CPY 


0»2 


00764 


? 


00001 


? 


00 763 




TIX 


K?DRM.?,1 


00 765 





7*600 





003O l 




wop 


1 


00766 





46000 





013 31 




LDA 


VDROPG 


00 767 





70 00 


4 







CPY 


0,4 


0077O 


? 


n T[ 


4 


00767 




TIX 


K2DRM+4,4,1 


00771 


-0 


53400 


4 


013 76 




LXO 


CB0X0N.4 


00772 


■> 


o?ooo 


4 


00001 




TRA 


1»4 


00 773 





00000 




0000c 
00020 
000 2 


COUNT 

r 


HTR 
ORG 
HFO 


MCROPG 


/^n^irt 





r; r> .-> .^ 




01340 


PPFF03 


CLA 


VORIGN 


2 1 


-.1 


4.^00^ 





013 3 5 




A^n 


2 M AND 2 


oo??? 


.-\ 


6 ? 1 





01031 




r TA 


CHKV+1 


00 2 3 





5 n 





oini 




CLA 


WORIGN 


00024 





40000 





01335 




ADD 


2MAND2 


000 2 5 





6?100 





01036 




STA 


CHKV+6 


00026 


r> 


o?ooo 


4 


00001 

00750 




TRA 

ORG 


1,4 

SRORIG 


00750 





50000 ' 





01300 


FORMC 


CLA 


NOUGHT 


0075] 


Pi 


60100 





01375 




STO 


STATUS 


0075? 





50000 





01044 




CLA 


FLAGS 


0075? 





6^100 





01006 




STO 


ALTER 


00754 


-'"! 


7fOOO 





001 41 




MSF 


P7 


00 75 5 


/"H 


? 





010 2 4 




TRA 


CASF1 


00756 


n 


7*000 





00141 




PSE 


97 


0O757 





53 400 


4 


01047 




LXA 


FOUR, 4 


00 760 


A 


5O000 




01043 




CLA 


FLAGS-1 


761 





62100 





01005 




STA 


ALTFR-1 


00 762 





50000 





01340 




CLA 


VORIGN 


00763 


2 


0O001 


4 


00765 




TIX 


SETUP ,4,1 


O0764 


r\ 


50OOO 





01341 




CLA 


WOPIGN 


00765 


r*\ 


40000 


r\ 


01335 


SETUP 


ADD 


2MAND2 


00766 


f\ 


62100 


r~ 


01007 




STA 


ALTER+1 


00 767 





631.00 


r\ 


01O]6 




STA 


SETC+1 


00770 





40O00 


r\ 


013O1 




ADD 


ONFADR 


00771 





6^100 





1 1 




STA 


ALTEP+2 


0077? 





62100 


A 

'',-' 


01020 




STA 


SETC+3 


00 773 


j 


5?&00 


1 


01300 




LXA 


NOUGHT, 1 


00774 


,pj 


53400 


2 


01335 




LXA 


2MAND2.2 


775 


2 


00001 


4 


1 c 




TIX 


ROWC-2.4,1 


00776 





50 000 





01360 




CLA 


INDEXR 


00777 





02000 





0100 2 




TRA 


ROWC 


01000 


r; 


5 n 


1", 


01346 




CLA 


PRICFX 



TWO VECTORS TO LOAD IN V AND W 



LOAD V STORAGE 



\Z 



A 1 1 


<-> 7*700 


000 2 2 




AL C - IB 


1100? 


g ? "? 


0]005 


P.O'».'C 


STO PO^'C+3 


01103 


5^000 


O1300 




LOO NOUGHT 


01004 


1. 0100? 1 


01.00 5 




TXI ROWC+3,1 ,2 


01005 


3 A C00 1 


o 




TXH 0,1 


01 10 6 


76100 


00000 


ALTER 


NOP 


H1007 


-0 60 100 2 


00010 




FTC 0,2 


oioio 


• O ftrjQOO 2 







STO 0,2 


oiou 


2 OnOO? 2 


01 n 04 




TIX ROWC+2»2»? 


0101? 


2 OoOOl 4 


0O764 




TIX P.ET'.ip-l»4.1 


0101-5 


-0 5 7 40 4 


01376 




L*D CB0X0N»4 


01014 


02 00O 4 


00001 




TRA 1,4 


^]°15 


r, «; o 


01355 


SETC 


CLA SCALHI 


01016 


6 o 1 2 


ooooo 




^TO 0,2 


01017 


50000 


01356 




CLA SCALLO 


01020 


1 60100 2 


ooooo 




STO 0,2 


01021 


n ^ .f> o q n o 


01335 




CLA 2MAND2 


0102? 


2 0100? 2 


01001 




TIX R0WC»1»2»2 


01023 


02000 


oioi? 




TRA SETC-3 


01024 


53400 4 


01302 


CA5E1 


LXA TWO ADR, 4 


010?5 


5-^000 


0104 5 




CLA FLAGS+1 


010? ft 


o 611.00 


0100 5 




STA ALTER-1 


o 1 2 7 


o 0?000 


01764 




TRA S£TUP-1 


01030 


50200 


010 50 


CHKV 


CLS TOLMI 


01031 


3400-O 2 


ooooo 




CAS 0,2 


010 32 


o o?ooo 


01051 




TRA CHKF 


01033 


02.00 


01.00 7 




TRA ALTER+1 


01034 


oiooo 


01007 




TRA ALTFR+1 


01035 


50000 


01323 




CLA DPFXUN 


01036 


60100 2 


OOOOO 




STO 0,2 


110 3 7 


o 61100 1 


01.^75 




STO STATUS 


0104O 


02100 


01010 




TRA ALTER+2 


01041 


5O000 


01046 


VCHK 


CLA FLAGS+? 


0104? 


60100 


01006 




STO ALTER 


010 43 


0?000 


11015 




TRA SFTC 


01044 


76100 


OOOOO 


FLAGS 


NOP 


01045 


01000 


01041 




HTR VCHK 


01046 


2 


01030 




TRA CHKV 


0104 7 


+ 000-100000 


004 


FOUR 


DEC 4 


r-. i o e, n 


+140000000000 


TOL^I 


OCT 140001010000 


0^051 


-0 7C&00 1 


00010 


CHKF 


PXO 0,1 


01052 


77100 


00022 




ARS 18 


01053 


402 00 


01302 




" SUP TWOADR 


01054 


4O2 0O o 


01347 




CUB FFA C ,Y* 


0105 5 


— l"?0O0 


0100 7 




TMI ALTFR+1 


010 56 


? 


010 3 5 
00020 




TRA CHKV+5 

ORG MCRORG 






0002 


n 


HFD 


00020 


50000 


01341 


PREF04 


CLA WORIGM 


00021. 


6210 


01040 




STA LOA 


00022 


-■ 62100 


01.163 




ST A STORA+1 


000 2 3 


4o?00 


01301 




SUB OMFADR 


000 24 


621.00 


01037 




STA HI A 


00025 


6? 100 


0116? 




ft A STORA 


00026 


n c^oo^i 


01340 




CLA VORIGN 



HFrRFMPNT PRICEX OP INDEXR OR 2M+2 
TRANSFER FOR ONW VECTOR AFTER PRICEX ROW 



EXIT 



PREPARE TO LOAD ONE VECTOR IN W 

AND COMPARE V AFTER PRICEX ROW IS REACHED 



V POSITIVE OR GREATER THAN 2 TO MINUS 33 

V NEGATIVE — UNITY TO VECTOR 



CASF 1 FOR ROWS BEFORE PRICEX AND FOR TWO 
FLAG FOR CASE 1 FOR ROWS AFTER PRICE X 



LOADING INTERLUDE FOR INITIALIZATION 



// 



00027 62100 0114? 

00030 67100 01203 

00031 40 70 01 30 1 

00032 6?100 01141 

00033 o 6 "> 1 1 2 ° 2 

00034 '.■ 02000 4 00" n l 

00750 

00 750 5*000 013 52 

00751 40000 01301 

00752 7V+00 5 00000 
00 75 3 -3 0*001 4 01206 
00754 76200 00303 
00 755 4r>000 01342 

00756 60100 o 00757 

00757 7000O 4 00000 

00760 2 0000] 4 00757 

00761 -0 75400 1 00000 

00762 77100 00022 

00763 40000 01342 

00764 67100 01022 

00765 67100 01144 

00766 402OO 01301 

00767 67100 01003 

00770 6->5O0 00772 

00771 5*400 4 01300 
00 77? «>oOon 4 000 "iO 

00773 _o 7*400 7 OOOOO 

00774 -2 0O003 2 01206 

00775 7^000 OOOOO 

00776 60200 00001 

00777 60200 000O2 
01.000 6020 0000 3 
01001 60200 0000& 
1007 1 0O002 4 01003 
O1003 o 5 ft n 00. 4 OOOOO 
'^1004 7 ft o o OOOOO 
01.005 67100 01032 
Ol r, 06 67100 ■"* 1 3 3 
01007 76300 0001.0 

01010 7ftOOO OOO03 

01011 4*700 01240 

01012 -0 17000 01136 

01013 40200 01205 

01014 17000 01017 

01015 67100 01033 

01016 07000 01020 

01017 67100 010 3? 
aja|ja r 7^00 OOOOO 
01071 -0 60 000 0O005 

01022 5*000 4 OOOOO 

01023 76300 00010 
01074 7ft70O 00001 
01025 76000 00006 
0102 6 73400 1 OOOOO 
01027 5*000 n 00005 





ST A 


LOB 




OTA 


ST0R5+1 




SUB 


ONFADR 




ST A 


H I D 




ST A 


STORB 




TRA 


1.4 




ORG 


SPOPIG 


BTRAN 


CLA 


DR3LIK 




ADD 


ONEADR 




PAX 


0»5 




TXL 


REDTP,4»1 


PEDRM 


RDR 


3 




A 00 


TORIGN 




ST A 


REDRM+3 




CPV 


0,4 




TIX 


REDRM+3,4,1 


BEGRC 


PXO 


0,1 




ARS 


18 




ADD 


TORIGN 




STA 


LOETA 




STA 


LOB+2 




SUB 


ONEADR 




STA 


TNPRD+1 




C TA 


NUTRF 




LXA 


NOUGHT* 4 


MUTRF 


OLA 


0,4 




Pn* 


0*2 




TNX 


RFDTP»2,3 




CLM 






SLW 


COMMOM+1 




SUM 


COMMON+2 




SLW 


COMMON* 3 




SLW 


COMMON** 


INPRP 


TXI 


INPRD+1,4,2 




L*0 


0,4 




CLM 






STA 


SHIFT 




STA 


SHIFT+1 




LL? 


8 




S c . P 






SUB 


84ADR 




TM1 


KFY2+2 




SUB 


61ADR 




TPL 


INPRD+13 




STA 


SHIFT+1 




TRA 


INPRD+14 




STA 


SHIRT 




CLM 






STO 


COMMON* 5 


LOETA 


LDO 


0,4 




LL^ 


8 




AL^ 


1 




COM 






PAX 


0,1 




CLA 


COMMON* 5 



RETURN TO EXEC LDP 
SAME LOC AS SRORIG 



WORD COUNT OF PRECEDING TRNFMN IN DECR 



CLEAR SUMS 



GFT HI PART ETA 



GET LO PART ETA 
INDEX FOR ELEM 



/J- 



0103 n 77100 00010 

01^31 I A 000 01032 

1 3 2 7 ft "* O^O'iP 

01033 7ft 500 o OOOOO 

01-34 o ft « i o o o o 5 

01035 -0 60000 00007 

01036 UO00 01236 
010 3 7 o 5 ■"> ° O 1 000 

01040 O e^n^O I 00000 

01041 6M00 00011 
0104? -0 6^000 OOOQO 
01^43 4*000 00000 
01044 looon o 011?1 
1045 2^000 000-0 7 
01046 6^100 r '""06 
1047 5ftP0O 00000 
o 1 r ' 5 20 00° 0005 
01051 601.00 00000 
1 <=, 2 5 1"! O 0000 6 

01053 ~o j.vmq * 000 6 

01054 4O00O 00006 

01055 76500 00043 

01056 40000 00000 

01057 76500 00005 
OlOftO o ftoi^O 00000 
OlOftl -o ftnOOO 00006 
0106? 56000 o 00011 
1 ft 3 ? 00 00 n 7 

01064 7ft5^0 00005 

01065 6M00 00017 

01066 5^000 ■"• 00006 
■oi^67 -o goo^o r > 000O6 

01070 40000 00006 

01071 76500 00043 
010 7? 4nO00 00000 
010 73 40000 00017 

01074 76500 o 00005 

01075 o 6O100 00O00 

01076 — ftoonp o 00017 

01077 5ftOOO o 0000 5 

01100 20000 00011 

01101 14000 0110? 

0110? 76300 00031 

01103 1&000 01231 

01104 60100 00015 

01105 50000 00°17 

01106 -0 60OOO o Q0017 

01107 40000 00017 
OHIO 40000 00002 
01111 76500 00043 
0111? o 140OO 01113 

01113 4*000 00015 

01114 4^000 00OOO 
01H5 40OOO 00001 
01116 60100 00001 



APS P. 
TOV SHIFT 

OH! ft LLO 
LPS 

STO COMMON+5 
STO COMMOM+7 
TOV FTAOV 

MIA CLA 0,1 

LOA LOO Otl 

STO COMMON+9 
5 TO COMMON 
ADO COMMON 
T7X KFY1 
MPY COMMON+7 
STO COMMON+6 
LDO COMMON 
MPY COMMON* 5 
STO COMMON 
CLA COMMON+6 
STO COMMON+6 
A PO COMMON+6 
LRS 3 5 
ADD COMMON 
LRS 5 

STO COMMON 
STO COM^ON+6 
LDO COMMON+9 
MPY CQM^ON+7 
LPS 5 

STO COMMON+15 
CLA COMMON+6 
STO CO-WON +6 
ADD COMMON+6 
LPS 3 5 
ADD COMMON 
ADD COMMON+15 
LRS 5 

STO COMMON 
C T0 COMMON+15 
LDO COMMON+5 
MPY COMMON+9 
CLOV TOV CLOV+1 
LLS 2 5 
TOV OVFLO 
STO COMMON+13 
CLA COMMON+15 
STO COMMON+15 
ADD COMMON+15 

ADD COMMON+2 
LPS 35 
OVOFF TOV OVOFF+1 

ADD COMMON+13 
ADD COMMON 
ADD COMMON+1 
STO COMMON+1 



FIX FT A 

HI FTA 
LO FTA 

W/O-l 



LO FIX RY LO FTA 



HI FIX BY LO FTA 



HIFIX BY HI ETA 
CLEAR OVERFLOW 



n, 



0111? - 


-0 6000^ 00002 


STO COMMON+2 


01120 


14000 01231 


TOV OVFLO 


01171 - 


-0 76000 00141 


KEY1 SLT 1 


0112? 


7000 01136 


TRA KEY2+2 


01123 


7sooo n ooiAi 


SLN 1 


01124 


fiorv)!"! n 00001 


Cl\ COMMON* 1 


0112 5 


56000 0000 3 


LDO C0MM0N+3 


0112* 


6^100 00003 


STO C0MM0N+3 


01127 - 


-0 60000 00001 


STO C0MM0N*1 


01130 


5^000 00002 


CLA C0MM0N*2 


01131 


56000 00004 


LOQ C0MM0N*4 


01132 


60100 00004 


STO COMMON* 4 


01133 


-0 6^° n 0000? 


STO COMMON+2 


01134 • 


-0 76000 00142 


KEY? 5LT 2 


01135 


02000 01140 


TRA KEY2+4 


01136 


2 0*002 2 01002 


TIX INPRD,2»2 


01137 


1 00003 4 011^4 


TXI L0B*2»4,3 


01140 


76000 00142 


SLN 2 


01141 


5*°00 1 00000 


HIP CLA 0,1 


01142 


5^000 1 00000 


LOB LOO 0*1 


01143 


02000- 01041 


TRA LOA+1 


01144 


50000 4 00000 


CLA 0,4 


01145 


76000 00006 


COM 


01146 


-0 7*400 1 00000 


POX 0,1 


01147 


50000 00001 


CLA COMMON*! 


01150 


76500 00000 


LPS 


01151 


10000 01154 


T7F STORA-6 


01152 


$0*00 01301 


CLA ONFADR 


01153 


76300 00000 


LLS 


01154 


60100 00005 


STO COMMON* 5 


01155 


76700 00043 


ALS 3 5 


01156 


40000 00002 


ADD COMMON+2 


01157 


76500 00043 


LR5 35 


01160 


4*000 00001 


ADO COMMON+1 


01161 


4H200 00005 


SUB COMMON* 5 


01162 


60100 1 00000 


STORA STO 0,1 


01163 


-0 6O000 1 00000 


STO Otl 


01164 


-0 76*00 00141 


SLT 1 


1165 


0?0 A 00772 


TRA NUTRF 


01166 


7£.nnr> 001 &1 


*LN 1 


01167 


5OO00 0000 3 


CLA COMMON* 3 


01170 


76500 00000' 


LRS 


01171 


1^.000 01173 


T7E STOPA+9 


01172 


50000 01301 


CLA ONEADR 


01173 


76300 00000 


LLS 


01174 


60100 00005 


STO COMMON+5 


01175 


76700 00043 


ALS 35 


01176 


40000 00004 


ADD C0MM0N+4 


01177 


76500 00043 


LRS 3 5 


01200 


4**00 00003 


ADD COMMON+3 


01201 


4A?00 00005 


SUB COMMON+5 


01202 


601.00 1 00000 


STORB STO 0,1 


01203 


-0 6*000 1 00000 


STO 0,1 


^1204 


0?O0O 00772 


TRA NUTRF 


01205 


+A OO^OO*** 75 


61 APR C C 61 



SWITCH IF ONLY ONE VECT 



v/o-i 
v/o 

2R IN DECR 



W/O-l 
W/0 



V/0-1 

v/o 



// 



01206 





5^000 





01351 


REDTP 


CLA 


STAGES 


01207 


n 


l n -000 





01234 




T7E 


EXIT 


01210 





53400 


L 


01354 




LXA 


TPALTR»4 


01211 





02000 





01214 




TRA 


REDRI 


01212 


n 


76400 


4 


00204 




9ST 


4*4 


01213 





47000 





00724 




HPR 


468 


01214 


r\ 


76200 


4 


00224 


REDBI 


RTB 


4»4 


01215 





53400 


1 


01300 




LXA 


NOUGHT » 1 


01216 





50000 





01342 




CLA 


TORIGN 


01217 





67100 





01221 




STA 


REDBT+5 


01220 





4O000 





01301 




ADD 


ONEADR 


01221 





70000 





00000 




CPY 




01222 


1 


0^001 


1 


01217 




TXI 


REDBI+3»1*1 


01223 


o 


02000 





01233 




TRA 


EXIT-1 


01224 





7710 





00355 




ARS 


237 


01225 





77100 





00355 




ARS 


237 


01226 


•»'"* 


7f> ri 00 


o 


00012 




RTJ 




01227 


q 


o?ooo 





01212 




TRA 


REDBI -2 


01230 





02000 





00761 




TRA 


9FGRC 


01231 


o 


47000 





00240 


OVFL0 


HPR 


160 


01232 





02000 





01231 




TRA 


OVFLO 


01233 





77200 


4 


002C4 




RFW 


4*4 


01234 


-0 


53400 


4 


01376 


EXIT 


LXD 


C80X0N*4 


01235 





07000 


4 


00001 




TRA 


1*4 


01236 





42000 





00247 


ETAOV 


HPR 


167 


01237 





07000 


o 


01236 




TRA 


ETAOV 


01240 


+000000000124 


8 4 ADR 


DEC 


84 










00 754 




ORG 


RFDRM 


00 754 


o 


40000 


o 


01333 




ADD 


SPAREF 


00755 


i-t 


07000 





00764 
00020 
00020 


r 


TRA 
ORG 
HFD 


BEGRC+3 
MCRORG 


00020 





50000 


o 


01337 


PREF05 


CLA 


H0R1GN 


00021 





4O000 





01334 




ADD 


1MAND1 


00022 


o 


67100 





01047 




5TA 


DTEST+2 


00023 





070C0 


4 


00001 
00 750 




TRA 
ORG 


1*4 

SRORIG 


00750 


n 


5^000 


n 


01300 


PRICE 


CLA 


NOUGHT 


00751 





60100 





01361 




STO 


INDEXS 


00752 





60100 





01367 




STO 


LOSCAR 


00753 





50000 





01311 




CLA 


INFINY 


00754 





6O100 





01370 




STO 


HI3EST 


00 755 





60100 


o 


01371 




STO 


LOBEST 


00756 


o 


50000 





01360 




CLA 


INDEXR 


00757 





77100 





00023 




ARS 


19 


00760 





40000 


o 


01337 




ADD 


HORIGM 


00761 





6">100 





01043 




STA 


DTEST-2 


00762 




7400 


4 


00766 


RFAP5 


TSX 


RFDTP*4 


00763 


o 


07000 





01002 




TRA 


CTRFC 


00764 





76400 


Q 


00205 


BST5 


BST 


5 


00765 





42000 





00725 




HPR 


469 


00766 





7A20O 





00225 


RFDTP 


RTB 


5 


00767 




5O000 





01342 




CLA 


TORIGN 


00770 


.■"» 


62100 





00772 




STA 


REDTP+4 


00771 


o 


40000 





01301 




ADD 


ONFADR 



724 ERROR STOP 



240 ERROR STOP 



247 ERROR STOP 



MODIFY BTRAN FOR 8192 MEM* 



SET UP LOC R-TH BASIS HEAD FOR 
DELTA CHECK IN PLP 



ERROR STOP 725 



A 



0077? 





70000 








00773 


/■I 


o?ooo 





00770 


A 0774 





02000 


n 


01144 


00775 


o 


77100 





00355 


00776 





77100 





00355 


00777 


-0 


76000 





0001 2 


01000 





02000 





0°764 


oiooi 





0?000 


4 


00001 


01002 


o 


5O000 


Q 


013f>7 


01003 





4^000 





01301 


01004 





60100 





01367 


01005 





5O000 





01342 


01006 





76^00 





0O006 


01 on 7 


A 


7^»40<"! 


1 


00000 


01010 


o 


5O000 


1 


77777 


oioii 





10000 





00762 


01012 


Q 


12000 





01021 


01013 





50000 





01331 


01014 





17000 





01020 


01015 





50OOO 





01370 


01016 





10000 


fl 


01020 


01017 


-0 


12000 





01147 


01020 


? 


0^00 2 


1 


01010 


01021 





6O100 





00000 


^1022 





5^000 


1 


noO^o 


01023 


o 


60100 





01365 


01024 


r> 


76000 





00006 


01025 





7^40 


2 


OOOOO 


01026 





50000 





01341 


01027 





07400 


4 


01163 


01030 





76300 





00006 


01031 





14000 





01033 


01032 





10000 





01020 


01033 


-0 


76000 





00142 


01034 


o 


02000 





01037 


01035 





76000 





00142 


01036 





02 n 0O 





01053 


01037 


-0 


76000 





00141 


01040 





02000 





01045 


01041 





76000 





00141 


01042 


A 


5O00O 


n 


00000 


01043 





40200 





00000 


01044 





10000 





01053 


01045 





53400 


4 


01334 


01046 





50000 





00000 


01047 





34000 


4 


00000 


01050 


o 


0^000 





01052 


01051 





02000 





01161 


01052 


2 


OnOOl 


4 


01047 


01053 





5O00O 





00006 


01054 





12000 





01020 


01055 


r\ 


56000 





00007 


01056 


-0 


76000 





00141 


01057 





02000 





01121 


01060 


o 


76000 





00141 



CTREC 



NEXTJ 



NUDEL 



DTEST 



SWTCH 



MORMD 



CPY 




TRA 


RFDTP+7 


TRA 


PO^TP 


APS 


237 


ARS 


737 


PTT 




TRA 


P.ST5 


TRA 


1»4 


CLA 


LOSCAR 


ADD 


ONFADR 


STO 


LOSCAR 


CLA 


TORIGN 


COM 




PA* 


0,1 


CLA 


32767*1 


TZE 


READ5 


TPL 


NEXTJ+1 


CLA 


VDRORG 


TPL 


NEXTJ 


CLA 


HIBEST 


TZE 


NEXTJ 


TMI 


POSTP+3 


Tiv 


J»l»2 


STO 


COMMON 


CLA 


0,1 


STO 


30RIGN 


COM 




PAX 


0,2 


CLA 


WORIGN 


TSX 


CINPR,4 


LLS 


6 


TOV 


NUDEL 


TZE 


NEXTJ 


SLT 


? 


TRA 


NUDFL+4 


SLN 


2 


TRA 


SWTCH 


SLT 


1 


TRA 


DTEST 


SLN 


1 


CLA 


COMMON 


SUB 




T7F 


SWTCH 


LXA 


1MAND1»4 


CLA 


COMMON 


CAS 


0,4 


TRA 


DTEST+5 


TRA 


DFRR 


TIX 


DTFST+2#4,1 


CLA 


COMMON* 6 


TPL 


NEXTJ 


LDQ 


COMMON+7 


SLT 


1 


TRA 


COMPR 


SLN 


1 



END OF RECORD 

TEST FOR PARTITIONS 



LOC A-J 



DELTA TOO SMALL 
TEST FOR DELTA CHECK 

SKIP DELTA CHECK 

TEST FOR PLP 

CHECK FOR RTH BASIS HEADING IN PLP 



H/0 ♦ M+l 



POSITIVE DELTA NO CANDIDATE 
TEST FOR PLP 



01061 





7*50^ 





00010 


01062 


-0 


mono 





01067 


01063 


n 


7*300 





00033 


01064 


-0 


5*100 





01312 


01065 





3O000 





01312 


01066 





02C0C 


Q 


01071 


01067 


-0 


50100 





01313 


01070 





3O000 





01313 


01071 





77100 





00011 


01072 


-0 


7^ 400 


4 


00000 


01073 


3 


77100 





00022 


010 74 





62100 





01114 


01075 


o 


5O000 





OOOO 6 


01076 





5*000 





00007 


01077 





76300 


4 


00066 


01100 





60100 





01366 


01101 


n 


50000 





01340 


01102 


o 


07400 


4 


01163 


01103 





7*500 





00001 


01104 





22000 





01366 


01105 


— 


6*000 





00003 


01106 





56000 





01300 


01107 





22000 





013*6 


OHIO 





53400 


4 


01114 


01111 





5O200 





000O3 


01112 


-3 


00036 


4 


01114 


01113 


-0 


53400 


4 


01112 


01114 





76500 


4 


00000 


01115 





7*300 


4 


00036 


01U6 





14000 





01142 


01117 





60100 





00006 


01120 


—^ 


60000 





0000 7 


01121 





34000 





01370 


01122 


o 


02000 





01020 


01123 


Q 


02000 





01135 


01124 





60100 





01370 


01125 


-0 


60000 





01371 


01126 


o 


50000 


n 


00000 


01127 





60100 





01361 


01130 





50000 





01365 


01131 




60100 





01364 


01132 





50000 





01367 


01133 





60100 





00001 


01134 


2 


00002 


1 


01010 


01135 


o 


50000 





00007 


01.136 





34000 





01371 


01137 





02000 





01020 


01140 


o 


0?000 





01020 


01141 





02000 





01125 


01142 





42000 





00251 


01143 


o 


00000 





01142 


01144 





50000 





01361 


01145 





10000 





01156 


01146 


Ks 


76400 





00205 


01147 





50000 





013*7 



DENOM 



RSHFT 



COMPR 



HIT It: 



OVPHI 



P05TP 



"LRS 


8 


TM7 


NORMD+7 


LLS 


2? 


ORA 


27CHAR 


FAD 


27CHAR 


TRA 


NORMD+9 


ORA 


54CHAR 


FAD 


54CHAR 


AR5 


9 


PDX 


0»4 


AR5 


18 


STA 


RSHFT 


CLA 


COMMON+6 


LDO 


CCMMON+7 


LLS 


54»4 


STO 


HI SCAR 


CLA 


VORIGN 


TSX 


CINPR»4 


LRS 


1 


DVH 


HI SCAR 


STO 


C0MM0N+3 


LDO 


NOUGHT 


DVH 


HI SCAR 


LXA 


RSHFT, 4 


CL5 


COMMON+3 


TXL 


RSHFT*4»30 


LXD 


RSHFT-2»4 


LRS 


0»4 


LLS 


30»4 


TOV 


OVPHI 


STO 


COMMON+6 


STQ 


COMMON* 7 


CA5 


HIBEST 


TRA 


NFXTJ 


TRA 


H1TIE 


STO 


HIBEST 


STQ 


LOB EST 


CLA 


COMMON 


STO 


INDEXS 


CLA 


B0R16N 


STO 


AORIGN 


CLA 


LOSCAR 


STO 


COMMON+1 


TIX 


Jtl.2 


CLA 


COMMON+7 


CAS 


LOREST 


TRA 


NEXTJ 


TRA 


NFXTJ 


TRA 


COMPR+4 


HPR 


169 


HTR 


OVPHI 


CLA 


INDEXS 


TZE 


EXIT 


BST 


5 


CLA 


LOSCAR 



HI PHI 



NO TRANSFER MEANS RIGHT SHIFT 



OLD DELTA BETTER 



KEEP J FOR S 
KEEP LOCATION 
KEEP RECORD NUMBER 



OLD DELTA PETTER 

DELTAS EQUAL 

HIGH PARTS EQUAL NEW LOW DELTA BETTER 

ERROR STOP 251 



n 



01150 

01151 

01152 

01153 

01154 

01155 

01156 - 

01157 

01160 

01161 

01162 

01163 • 

01164 • 
01165 
01166 
01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 





•0 

n 







40200 
10000 
76*00 
40200 
1?000 
07400 4 
•0 53^00 4 
77200 
02000 4 
4?000 
02000 
-0 6^400 2 
-0 63400 4 
40OOO 
62100 
40000 
62100 
50000 
60100 
6M00 
50000 2 
73400 4 
5O000 4 
5fiO0O 4 
60100 
-0 60000 
40000 
10000 
20000 2 
76500 
60100 
-0 6O000 
56000 
20000 2 
14000 
76300 
40000 
60100 
14000 
50000 
-0 60000 
4O000 
40000 
76500 
14000 
40000 
4^000 
14000 
6^100 
-0 60000 
50000 2 
-0 12000 
2 00002 2 
5f>000 
loOOO 





o 








00001 

01156 

00205 

01301 

01152 

00766 

01376 

00205 

00001 

00257 

01161 

00003 

01377 

01335 

01176 

01301 

01177 

01300 

00006 

00007 

77777 

00000 

ooooc 
ooooo 

00010 
00011 
00011 
01232 

ooooo 

00026 

00011 

00012 

00010 

OOOOO 

01213 

00015 

00011 

00010 

01256 

00012 

00012 

00012 

00007 

00043 

01225 

00010 

00006 

01256 

00006 

0000 7 

77777 

01235 

01174 

00006 

01247 



. EXIT 



OERR 

CINPR 



SUB 
TIE 
BST 
SUB 
TPL 
TSX 
LXD 
REW 
TRA 
HPR 
TRA 
5XD 
SXD 
ADD 
STA 
ADO 
STA 
CLA 
STO 
STO 
1 CLA 
PDX 
ELBET CLA 
LDO 
STO 
STO 
ADD 
TZE 
MPY 
LRS 
STO 
STO 
LDO. 
MPY 
TOV 
CLROV LLS 
ADD 
STO 
TOV 
CLA 
STO 
ADD 
ADO 
LRS 
TOV 
ADD 
ADD 
TOV 
STO 
STQ 
CLA 
TMI 
TIX 
CLA 
TZE 



NEXT I 



COMMON* 1 
EXIT 

5 

ONEADR 

P0STP+6 

REDTP.4 

CB0X0N«4 

5 

1.4 

175 

DERR 

COMMON+3.2 

CB0XTWt4 

2MAND2 

ELBET 

ONEADR 

ELBET+1 

NOUGHT 

COMMON* 6 

COMMON+7 

32767t2 

0»4 

0»4 

0»4 

COMMON* 8 

COMMON* 9 

COMMON* 9 

NEXT 1-2 

0,2 

22 

COMMON* 9 

COMMOM+10 

COMMON+8 

0«2 

CLROV 

13 

COMMON* 9 

C0MM0N+8 

OVELO 

COMMON* 10 

COMMON* 10 

COMMON* 10 

COMMON+7 

35 

NFXTI-7 

COMMON* 8 

COMMON* 6 

OVELO 

COMMON+6 

- COMMON+7 
32767»2 
NEXTI+1 
I»2»2 
C0MM0N+6 
0VEL0-7 



PROPER DIVISION IN MEMORY 



GO READ IN PROPER DIVISION 



ERROR STOP 257 



SKIP ZERO MULTIPLICATION 

LO PRODUCT 
HI PRODUCT 



SUM HI PARTS 



SUM LO PARTS 



NEW SUM 



It 



01237 


f\ 


76000 





00000 


CLM 




01240 


_. fi 


5^100 





01301 


ORA 


ONEADR 


01241 





60100 





00010 


STO 


COMMON+8 


01242 





76700 





00043 


AL5 


35 


01243 





40000 





00007 


ADD 


COMMON* 7 


01244 





76500 





00043 


LR$ 


35 


01245 





40200 





00010 


SUB 


COMMON* 8 


01246 





40000 





00006 


ADD 


COMMON* 6 


01247 





76300 





00000 


LLS 





01250 





60100 





00006 


5T0 


COMMON+6 


01251 


-0 


60000 





00007 


STQ 


COMMON+7 


01252 


-n 


53400 


2 


00003 


LXD 


COMMON+3t2 


01253 


-0 


53400 


4 


01377 


LXD 


CB0XTW»4 


01254 





14000 





01255 


TOV 


OVFLO-1 


01255 


* 


02000 


4 


00001 


TRA 


1*4 


01256 





42000 





00250 


OVFLO HPR 


168 


01257 





02000 





01256 
00750 

00750 


TRA 
ORG 

F HED 


OVFLO 
SRORIG 


00750 





53400 


2 


01335 


LDFLV LXA 


2MAND2.2 


00751 


-0 


i^*AA 





01365 


CAL 


B0RI6N 


00752 


o 


4*000 





01335 


ADD 


2MAND2 


00753 





62100 





00765 


STA 


SUBOR+4 


00754 


-0 


7ft000 





00001 


PBT 




00755 





o?ooo 





00762 


TRA 


SUBOR+1 


00756 





50000 





00761 


CLA 


SUBOR 


00757 





o?ooo 





00763 


TRA 


SUBOR+2 


00 760 


o 


50000 


1 


00215 


ADDOR CLA 


141»1 


00761 





50200 


1 


00205 


SUBOR CL C . 


133.1 


00762 


* 


50000 





00760 


CLA 


ADDOR 


00763 





60100 





O1O04 


STO 


AELEM 


00764 


o 


5*000 


o 


01300 


CLA 


NOUGHT 


00765 





6O100 


2 


00000 


STO 


0,2 


00766 


2 


00001 


2 


00765 


TIX 


SUBOR* 4.2,1 


00767 


—0 


5*000 





01365 


CAL 


B0RI6N 


00770 





62100 





01022 


STA 


P.ELEM+1 


00771 





40200 





01301 


SUB 


ONEADR 


00772 





62100 





01021 


STA 


BELEM 


00773 


o 


50000 





01364 


CLA 


AORIGN 


00774 





67100 





01004 


STA 


A EL EM 


00 775 


* 


40200 


o 


01301 


SUR 


ONEADR 


00776 


fj 


62100 





01000 


STA 


ELIND 


00777 





5^400 


1 


01311 


LXA 


INFINY.1 


1 o 





50000 


1 


00000 


ELIND CLA 


0.1 


01001 


n 


6*100 


* 


ooooo 


STO 


COMMON 


01002 


H 


76000 





00006 


COM 




01003 




73400 


2 


ooooo 


PAX 


0,2 


01004 


o 


50000 





ooooo 


AELEM CLA 




0100 5 


o 


76500 





00033 


LRS 


27 


01006 


-0 


loooo 





01011 


TN? 


AELEM+5 


01007 


o 


5*000 





01030 


CLA 


DUMMY 


01010 





02000 





01015 


TRA 


BELFM-4 


oion 





7^500 


* 


00010 


LRS 


8 


01012 


f> 


5***0 





00760 


CLA 


ADDOR 


01013 





76300 


n 


00010 


LLS 


8 



ERROR STOP 250 



TEST ♦ OR - LOADING 



CHAR OF $P FIXED PT NO 
CHAR FOR LO-PART 



CLEAR B 

INITIALIZE S ADDRESES 

INITIALIZE A LOCATIONS 



INDEX OF A ELEM 



// 



01014 
01015 
01016 
01017 
01020 
01021 
01022 
01023 
01024 
01025 
01026 
01027 
01030 



00750 
00751 
00752 
00753 
00754 
00755 
00756 
00 757 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
0100 7 
01010 
01011 
01012 
01013 
1 1 4 
01015 
01016 
01017 



76700 
601.00 
50000 
76300 
30000 
60100 

-0 6O000 
5H00O 

-0 1?000 
2 00002 

-0 53400 
02000 

42 a 50 /,! 00 



50000 
40000 
62100 
62100 
6?100 
62100 
62100 
67100 
4*000 
62100 
62100 
62100 
67100 
62100 
67100 
50000 
40200 
67100 

50000 

10000 
50000 
62100 

07000 

76400 
47OOO 
76200 
-0 53400 
70000 
2 00001 

07000 

77100 

77100 

-0 76000 

C?000 

50000 

67100 

5"»400 

-2 OOOOI 

-0 75400 

77100 



n 






2 

2 

p 


1 
4 
4 












00023 
00001 
00761 
00033 

00001 
00000 
00000 

00000 

01026 

01000 

01376 
00001 
O000O 

00750 
00750 
01365 
01335 
01032 
01040 
01070 
01074 
01123 
01151 
01301 
01035 
01041 
01071 
01075 
01124 
01152 
01342 
01301 
01003 
01351 
01103 
01016 
01015 
01001 
00202 
00730 
00222 
01311 
00000 
01003 
01103 
00355 
00355 
00012 
00777 
01342 
01014 
00000 
00000 
01001 
00022 

































1 
1 
1 












1 
1 
1 





BELEM 



EXIT 



DUMMY 



G 



FTRAN 



BST2 



REDTP 



BFGRC 



ALS 


19 


STO 


COMMON+l 


CIA 


SUBOR 


LLS 


27 


FAD 


COMMON+1 


STO 


0»2 


STO 


0»2 


CLA 


COMMON 


TMI 


EXIT 


TIX 


FLIND,1,2 


LXD 


CB0X0N»4 


TRA 


1»4 


OCT 


20500000000? 


ORG 


SRORIG 


HED 




CLA 


BORIGN 


ADD 


2MAND2 


ST A 


PIVOT+4 


STA 


HIORD-6 


ST A 


FLADD 


STA 


RESLT 


STA 


FINAL+1 


STA 


EXIT-3 


ADD 


ONEADR 


STA 


PIVOT+7 


STA 


HI0RD-5 


STA 


FLADD+1 


STA 


RESLT+1 


STA 


FINAL+2 


STA 


EXJT-2 


CLA 


TORIGM 


SUB 


ONEADR 


STA 


REDTP+2 


CLA 


STAGES 


T7.E 


REDRM 


CLA 


BEGRC+2 


STA 


BEGRC+1 


TRA 


REDTP 


BST 


2 


HPR 


472 


RTB 


2 


LXD 


INFINY,! 


CPY 


0,1 


T1X 


REDTP+2 tit 1 


TRA 


REDRM 


ARS 


237 


ARS 


237 


RTT 




TRA 


BST2 


CLA 


TORIGN 


STA 


BEGRC 


LXA 


0.1 


TNX 


Otl.l 


PXD 


REDTP, 1 


ARS 


18 



TEST STAGE INDEX 

INITIALIZE ERROR PROCEDURE FOR 

READING TAPE AND SET SWITCH 



730 TAPE CHECK HALT 
TAPE READING 

COPY LOOP 
T/O-l 



LOC WORD COUNT OF TRANSFMTN 
SWITCH 
ADDRESS FOR SWITCH TO TAPE READ 



13 



01020 


40000 01014 




ADD BEGRC 


01021 


62100 01046 




5TA HIORD 


01022 


40000 01301 




ADD ONEADR 


01023 


67100 01053 




STA LOORD 


01024 


62100 01014 




STA BEGRC 


01025 


6?100 01026 




STA PIVOT 


01026 


50000 1 00000 


PIVOT 


CLA 0»1 


01027 - 


-0 32000 0132? 




ANA MASKDE 


01030 


40200 01336 




SUB 2MAN2D 


01031 - 


-0 7^400 2 00000 




PDX 0.2 


01032 


5O000 2 00000 




CLA 0.2 


01033 


10000 01014 




T7.E BEGRC 


01034 


60100 01366 




STO HISCAR 


01035 ' 


_0 5/1OOO 2 000^0 




CAL 0,2 


01036 


6O200 01367 




SLW LOSCAR 


01037 


A ?ftO0 ft onooo 




CLW 


01040 


6r>200 2 OOHOO 




SLW 0*2 


01041 


60200 2 00000 




SLW Of 2 


01042 


2 00001 1 01043 




TIX MI0RD-3»1*1 


01043 


16100 01044 




TOO HIORD-2 


01044 


14000 01045 




TOV HIORD-1 


01045 


-2 00002 1 01014 




TNX BEGRC » 1*2 


01046 


50000 1 00000 


HlORD 


CLA 0.1 


01047 


6^100 OOOOO 




STO COMMON 


01050 


-0 32000 01316 




ANA MASKCH 


01051 


40200 0131? 




SUB 27CHAR 


0105? 


60100 000^1 




STO COMVON-M 


01053 


50000 1 00000 


LOORD 


CLA 0.1 


01054 


60100 00002 




STO COMMOM+2 


01055 


-0 3?000 01316 




ANA MASKCH 


01056 


77100 00010 




ARS 8 


01057 


40200 01336 




SUB 2MAN2D 


01060 


-0 73400 2 OOOOO 




PDX 0.2 


01061 


-0 50OOO 00002 




CAL COMMON+2 


01062 


-0 32000 01317 




ANA MASKER 


01063 


-0 60200 00001 




OPS COMMON+1 


01064 


07400 4 00640 




TSX DPFMUL+2.4 


01065 


02000 01077 




TRA OVMPY 


01066 


6^100 OOODO 




STO COMMON 


01067 


-0 60000 00001 




STO COMMON+1 


01070 


50OOO 2 OOOOO 


FLADD CLA 0»2 


01071 


5*000 2 OOOOO 




LDQ 0.2 


^1072 


07400 4 00607 




TSX 0PFADD.4 


01073 


0?000 01101 




TRA OVADD 


010 74 


60100 2 OOOOO 


RESLT STO 0»2 


01075 


-0 60000 2 OOOOO 




STO 0.2 


01076 


02000 01045 




TRA HIORD-1 


01077 


4?000 00320 


OVMPY HPP 208 


onoo 


09000 01077 




TRA OVMPY 


01101 


4?000 00310 


OVADD »Pn 2 00 


01102 


o?ooo 01101 




TRA OVADD 


01103 


5r»000 OHIO 


REORM CLA REDRM+5 


01104 


62100 01015 




STA BEGRC+1 


01105 


50000 01352 




CLA DR3L1M 


01106 


40000 01301 




ADD ONFADR 



SET UP REL ADDR FOR R-TH ELEMENT 



2R IN DECR 



A/0+2M+2 



A/0+2M+3 



A/0+2M+2 
A/0+2M+3 
STEP OVER J WORD IN TRNFMN HEADING 

CLEAR OVFLO 
T0GGLE5 



INSERT LO CHAR 



A/0+2M+2 
A/04-2M+3 



A/0+2M+2 
A/0+2M+3 
GO BACK FOR NEXT ELEM 



SET SWITCH 



A I 



01107 
OHIO 
01111 
0111? 
01113 
01114 
01115 
01116 
01117 
01120 
01121 
01122 
01123 
01124 
01125 
01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 
011.5? 
01153 
01154 
01155 
01156 
01157 
01160 

011.11 
01112 
01113 

0111* 

01115 
01116 
01117 



00020 
000 21 
000 72 



73400 

•3 00001 

76200 

40000 

62100 

62100 

70 A 00 

2 00001 

5^000 

6?100 

02000 

53400 

50000 

56000 

60100 

1*200 

-0 1?000 

76000 

0?000 

12000 

76500 

-0 32000 

40200 

-0 6^000 

•0 3*000 

16100 

6O1C0 

50200 

40100 

30000 

-0 76000 

-0 7ftO00 

76500 

16100 

60100 

-0 6O000 

2 0^00? 

-0 5^400 

07000 

50000 

56000 

02000 

40200 
4*000 
67100 
50000 
6^100 
50000 
02000 



5r»ooo 
40OOO 
62100 



1 
1 






1 
1 

o 

1 



2 
•> 

2 




o 








"1 



o 








o 
? 

2 
7 
4 

L 






o 
o 











ooooo 

0112? 
00393 
01342 
01115 
01120 

ooooo 

01115 
01300 
OOOOO 
01012 
01335 
OOOOO 
OOOOO 
OOOOO 
01132 
01151 
00144 
01134 
01151 

ooooo 

01316 
0133? 
00001 
00001 
01141 
00001 
01301 
OOOOO 
00001 
00144 
00003 
OOOOO 
01156 

ooooo 

OOOOO 
0112 3 
01376 
00001 
01300 
01300 
01151 
01111 
01301 
01333 
01115 
01300 
000^0 
01333 
01013 
00020 
00020 
01337 
01334 
01101 



CPYDR 

CLEAR 
FINAL 

SYNAG 



EXIT 



ERA^F 



H 
PREF08 



PAX 
TXL 
RDR 
ADO 
STA 
STA 
CPY 
TIX 
CLA 
STA 
TRA 
LXA 
CLA 
LDQ 
STO 
TOP 
TMI 
SLN 
TRA 
TPL 
LRS 
ANA 
SUB 
STO 
UFA 
TOO 
«T0 
CLS 
ADM 
FAD 
SLT 
SSM 
LRS 
TOO 
STO 
?T0 
TIX 
LXD 
TRA 
CLA 
LDO 
TRA 
ORG 
SUB 
ADO 
STA 
CLA 
STA 
CLA 
TRA 
ORG 
HED 
CLA 
ADD 
STA 



0,1 

FINAL»1*1 

3 

TORIGN 

CPYDR 

CLEAR 

0,1 

CPYDRtltl 

NOUGHT 

0*1 

BEGRC-2 

2MAND2»2 

0,2 

0,2 

COMMON 

SYNAG+4 

EXIT-3 

4 

SYNAG+6 

EXIT-3 

MASKCH 

ROftROW 

COMMON+1 

COMWON+1 

SYNAG* 11 

COMMON+1 

ONEADR 

COMMON 

COMMON+1 

4 


EXIT+2 

0,2 

0,2 

FINAL+1,2,2 

CB0X0N»4 

1»4 

NOUGHT 

NOUGHT 

EXIT-3 

REDRM+6 

ONEADR 

SPARE? 

ERASE 

NOUGHT 

SPAREF 

BEGRC-1 

MCRORG 

HORIGN 
1 HANOI 
8ASIS+1 



CHECK EMPTY DRUM 



A/0+2M+2 
A/0+2M+3 



REMEMBER SIGN OF NUMBER 



A/0+2M+2 
A/0+2M+3 



MODIFY FOR 8192 MEMORY 



11- 



00*23 
00*24 
n q p 2 5 

0*n26 
00027 
000 30 
000 31 
00032 
00033 
OO034 
00035 
00036 
000 37 

00750 
no 751 
00752 
00753 
00 754 
00755 
00 756 

00757 
0076* 
00761 
00762 
00763 
00764 
00765 
00766 
00 767 
00770 
00771 
00772 
00773 
00774 
00775 
00 776 
00 777 

01000 
01001 

01002 
O1003 
01004 
01005 
01006 
01007 

01010 

01011 
01012 

oni3 

*1*14 

01015 
01016 
01017 
01020 










o 



-0 

2 










^ 

'-/ 

-0 




O 









-0 





















50000 
40000 
6?100 
6">100 
40OOO 
62100 

6*100 

5O000 
4^000 
62100 
40O00 
62100 
02000 

5O0O0 
60100 
50000 
60100 
16100 

50000 

53400 

53400 
63400 

00000 

10000 
5*000 
60100 
50000 
60100 
7600* 
4<^200 
l.?000 
50000 
60100 
5*000 
60100 
loOOO 
12000 
40000 
12000 
50OOO 
56*00 

l?^oo 

16?00 
02000 

16200 
760 00 
76500 
40000 
04">00 
0? A 00 
50OOO 
60100 
5O000 
24000 
















4 








o 

I 

2 
2 

1 





1 


o 


1 



1 





















-^ 




rs 
1 





n 



01341 
01335 
00765 
01105 
01301 
00772 
01106 
01340 
01335 
00774 
01301 
01015 

0000 1 

00 750 
01311 
01370 
01300 
01360 
00755 
01364 
01335 

01347 
00761 
00762 
010 72 
01117 
01055 
00000 
01366 
00003 
01121 
010 54 
00000 
01367 

00000 

00000 
01065 
01002 
01123 
01065 
01366 
00000 
01007 

01010 

01054 

01054 

00003 

00000 

0112? 
01015 
01054 
OOOOO 
00001 
OOOOO 
01366 



CLA 
ADD 
STA 
STA 
ADD 
STA 
STA 
CLA 
ADD 
STA 
ADD 
.STA 
TRA 
ORG 
CHUZR CLA 
STO 
CLA 
STO 
TOO 
CLA 
LXA 

LXA 
SXD 

FIX TIX 
TZE 
CLA 
STO 

START CLA 
5T0 
SSP 

sun 

TMI 
CLA 
STO 
CLA 
STO 
TZE 
TPL 
ADD 
Tc-L 

RATIO CLA 
LDO 
TMI 
TOP 
TRA 
TOP 

CHKOV SSP 
LRS 
ADD 
TLQ 
TRA 

*ETUP CLA 
STO 
CLA 
FDH 



WORIGN 

2MAND2 

START 

BASIS+5 

ONFADR 

START+5 

RASIS+6 

VORIGN 

2MAND2 

START+7 

ONFADR 

SETUP 

lt4 

SRORIG 

INFINY 

HIBEST 

NOUGHT 

INDEXR 

CHUZR+5 

AORIGN 

2MAND2.1 

FEA5YX.2 

FIX,? 

FlX+1.1 

INVER 

PRIME 

NEXTR41 

Otl 

HISCAR 

MINIU 

NFXTR 

0.1 

LOSCAR 

0.1 

COMMON 

ZEROV 

RATIO 

TOLMI 

ZEROV 

HISCAR 

COMMON 

CHKOV-1. 

CHKOV 

NEXTR 

NEXTR 



POWER 

SETUP 

NEXTR 

Otl 

COMMON+1 

COMMON 

HISCAR 



INITIALIZE U VALUES 



INITIALIZE V VALUES 



SET INDEX FOR FIRST ELIGIBLE ROW 
SET SWITCH 
HIGH U 



U LESS THAN 2 TO MINUS 17 
LOW U 



HIGH V 



NEGATIVE V LESS THAN 2 TO MINUS 33 
TREAT AS ZERO 

U 
V 



NEGATIVE V AND POSITIVE U NOT ELIGIBLE 
POSITIVE V AND NEGATIVE U NOT ELIGIBLE 



RATIO WILL OVERFLOW 
LOW V 

HIGH V 
HIGH U 



,n 



01021 





16100 





01065 


TOO 


ZEROV 


010?? 


-0 


6000 





00000 


STO 


COMMON 


01023 





30000 





00001 


FAD 


COMMON+1 


01024 





16100 





01025 


TOO 


SFTUP+R 


01025 


n 


24000 





01366 


FDH 


HI SCAR 


01026 


_r> 


6OO00 


o 


00001 


STQ 


COM^ON+1 


010?7 





14000 





01030 


TOV 


SETUP+11 


01030 





16100 


o 


01065 


TQO 


7ER0V 


01031 





50200 





01367 


CLS 


LOSCAR 


01032 




24000 




01366 


FDH 


HISCAR 


01033 





26000 


o 


ooooo 


FMP 


COMMON 


01034 


«*0 


30^00 





00001 


UFA 


COMMON+1 


01035 





16100 





01036 


TQO 


TOV 


01036 


/">. 


14000 





01065 


TOV TOV 


ZFROV 


01037 





30000 





00000 


FAD 


COMMON 


01040 





16100 





01065 


TQO 


ZEROV 


01041 





60100 


o 


ooooo 


STO 


COMMON 


01042 


o 


5*000 





01370 


CLA 


HIBEST 


01043 


-0 


12000 





01054 


TMI 


NEXTR 


01044 





50000 





ooooo 


CLA 


COMMON 


01045 


—0 


6H000 





01367 


STO 


LOSCAR 


01046 





34000 





01370 


CFHI CAS 


HIBEST 


■"1047 


o 


07000. 





010 54 


TRA 


NEXTR 


01050 





02000 





01060 


TRA 


CFLO 


01051 




60100 


o 


01370 


STO 


HIBEST 


01052 


-0 


6O000 





01.171 


STO 


LOBEST 


01053 


-0 


63400 


2 


01360 


SXD 


INDEXR»2 


01054 


1 


0O002 


2 


01055 


NEXTR TXI 


NEXTR+1,2,2 


01055 


2 


00002 


1 


000^0 


TIX 


0.1*2 


01056 


-0 


53400 


4 


01376 


EXIT LXD 


CB0X0N»4 


01057 


o 


02000 


4 


00001 


TRA 


1.4 


01060 





50000 





01367 


CFLO CLA 


LOSCAR 


01061 





3A00O 





01371 


CAS 


LOBEST 


01062 





02000 





01054 


TRA 


NEXTR 


01063 





02000 


o 


01054 


TRA 


NEXTR 


01064 





0?0O0 





01052 


TRA 


CFHI+4 


01065 





5^200 


o 


01366 


ZEROV CLS 


HISCAR 


01066 


o 


12000 





01054 


TPL 


NEXTR 


01067 





56000 





01367 


LDQ 


LOSCAR 


01070 





76500 


*\_ 


OOOOO 


LRS 




01071 





02^00 





01045 


TRA 


CFHJ-1 


01072 





50000 


n 


01120 


INVER CLA 


PRIME-H 


010 73 





60100 


o 


01055 


STO 


NEXTP+1 


010 74 


n 


50000 





01347 


CLA 


FEASYX 


01075 





77100 





00001 


ARS 


1 


01076 





40200 





01334 


SUP 


1MAND1 


01077 





73400 


4 


OOOOO 


PAX 


0.4 


01100 





50000 


o 


01300 


BASIS CLA 


NOUGHT 


01101 





34000 


4 


OOOOO 


CAS 


0,4 


01102 


o 


02000 





01105 


TRA 


8ASIS+5 


01103 





02000 


r> 


01105 


TRA 


PASIS+5 


01104 





02^00 


n 


01054 


TRA 


NEXTR 


01105 


~o 


40000 


) 


ooooo 


SBM 


0,1 


01106 





56000 


1 


ooooo 


LDO 


0,1 


01107 





76500 





ooooo 


LRS 





LOW V 



CLEAR ACCUMULATOR TOGGLE 
QUOTIENT UNDERFLOW 
LOW U 
HIGH U 



CLEAR MO OVERFLOW TOGGLE 

HIGH QUOTIENT IN ACCUMULATOR LOW IN MQ 
ONLY ZERO RATIO ELIGIBLE 

COMPARE CURRENT BEST WITH NEW CHOICE 
KEEP CURRENT BEST 
HIGH PARTS EQUAL 
STORE MEW CHOICE 

STORE NEW R 

RETURN TO START FOR V/U TO MODIFY FOR 1NV 

HIGH PARTS EQUAL COMPARE LOW PARTS 

STORE NEW CHOICE 

V EQUAL ZERO U MUST BE PLUS 
LOW U 

SET SWITCH FOR INVERSION 
SET TO CHECK BASIS HEADINGS 



BASIS HEADING NOT ARTIFICIAL 
MINUS ABSOLUTE VALUE OF U 



i4 



OHIO 





40000 01121 


ADD MIN1U 


01111 





12000 01054 


TPL NEXTR 


01112 





4^200 01121 


SUB MtNIU 


01113 


9 


0?000 01045 


TRA CFHI-1 


01114 


7 


OoOOl 4 01100 


MODFY TIX BASIS »4»1 


01115 





42000 07777 


HPR 4095 


01116 





00000 01115 


HTR MODFY+1 


0111? 


2 


00002 1 00765 


PRIME TIX START »1 #2 


1120 


2 


0*002 1 01114 


TIX M0DFY»1»2 


0112 3 


f!60O0QO00000 


MINIU OCT 160000000000 


01122 


+1770^0000000 


POWER OCT 177000000000 


01123 


+140^90000000 


TOLMI OCT 140000000000 






00020 


ORG MCRORG 






00020 


I HFD 


000?0 





5O000 01341 


PREF09 CLA WORIGN 


00021 





62100 00756 


STA ELIMN+6 


000 22 


o 


62100 00763 


STA XCHGW-+3 


00023 





40200 01301 


SUB ONEADR 


00024 





62100 00754 


STA ELIMN+4 


00025 





6^100 00761 


STA XCHGW+1 


00026 





40000 01335 


ADO 2MAND2 


00027 


...J 


40000 01302 


ADD TWOAOR 


00030 





67100 01053 


STA ARITH+1 


00031 





62100 01137 


STA MP0NY41 


000 3? 





40200 01301 


SUn ONFADP 


000 33 





62100 01136 


STA MPONY 


00034 





6?100 01052 


STA ARITH 


00035 





62100 01046 


STA DRLUP+7 


00036 





5^000 01340 


CLA VORIGN 


00037 


o 


62100 01010 


STA XCHGV+1 


00040 





62100 01016 


STA VCOMP-1 


00041 





40 200 01301 


SUB ONEADR 


00042 





62100 01007 


STA XCHGV 


00043 





67100 01015 


STA VCOMP-2 


00044 





4OO00 01335 


ADD 2MAND2 


00045 


9 


40000 01302 


ADD TWO ADR 


0004 6 





62100 01073 


STA MPADD+? 


00047 





62100 01134 


STA MPONY-2 


00050 





40200 01301 


SUP ONEADR 


00051 





62100 01072 


STA MPADD+6 


00052 





62100 01133 


STA MPONY-3 


00053 





50000 01342 


CLA TORIGN 


00054 





40000 01335 


ADD 2MAND2 


00055 





62100 01041 


STA DRLUP+2 


00056 





62100 01067 


STA MPADO+3 


00057 





6?100 01127 


STA STSUM+2 


00060 





40000 01301 


ADD ONEADR 


00061 





67100 01070 


STA MPAOD+4 


00062 





67100 01130 


STA STSUM+3 


00063 





07000 4 00001 


TRA 1.4 






00750 


ORG SRORIG 


0O750 


o 


50000 01360 


ELIMN CLA INDEXR 


00751 


■j 


76000 00006 


COM 


00752 


-0 


7-^400 2 0O000 


PDX 0»2 


00753 


o 


14000 00754 


TOV ELIMN+4 



U TOO SMALL FOR PIVOT ELEMENT 



ERROR 

SWITCH FOR V/U 

SWITCH FOR INVERSION 

2 TO MINUS 1? TOLERANCE 

NEGATIVE V TOLERANCE 



INTERLUDE TO INITIALIZE ELIMN 



RETURN TO EXECUTIVE LOADER 
SAME LOC AS SRORIG 

CLEAR OVERFLOW TOGGLE FOR ACC 



;?:> 



00754 





50200 


2 


ooooo 


00755 


o 


60100 


o 


01366 


00756 


n 


5^200 


2 


OOOOO 


00757 





6O100 





01367 


00 760 





50200 





01315 


00 761 





60100 


2 


OOOOO 


00762 





50200 





01314 


00763 


o 


6" 100 


2 


OOOOO 


00764 





5D000 





01315 


00 76 5 





24000 





01366 


00766 


-0 


60 000 


o 





00767 





16100 


o 


00 770 


00770 





24000 


o 


01366 


00771 


c 


16100 





01143 


00772 


_n 


6O000 


n 


00001 


00773 


o 


5^200 


o 


01367 


00 774 


o 


24000 





01366 


00775 


n 


2,f000 





ooooo 


O0776 





3nooo 


o 


ooooi 


0^777 


o 


3O000 





OOOOO 


01.000 


o 


07400 


4 


01100 


01001 





60100 





01366 


01002 


-0 


60000 





01367 


01003 


n 


53400 


1 


01335 


01004 


o 


07400 


4 


01052 


01005 


2 


00002 


1 


01004 


01006 





53400 


1 


01335 


01007 


o 


50000 


2 


OOOOO 


01010 





56000 


2 


OOOOO 


oiou 





60100 





01366 


01012 


-0 


60000 





01367 


01013 


o 


10000 


o 


01031 


01014 





76000 


o 


OOOOO 


01015 





6O200 


2 


OOOOO 


01016 


n 


6*200 


2 


OOOOO 


01017 


o 


76000 





00143 


01020 





07400 


4 


01052 


01021 


2 


00002 


1 


01017 


01022 


-0 


76000 





00141 


01023 





02000 


r\ 


01031 


01024 





76000 


o 


0O1A1 


01025 


-0 


76000 





001 A 2 


01026 





02 000 





01033 


01027 


o 


76600 





00304 


01030 





07400 


4 


010 3 7 


01031 


-0 


53400 


4 


01376 


01032 





02000 


4 


00001 


01033 





76200 





00304 


01034 





07400 


4 


01044 


01035 





76000 





00142 


01036 





o?ooo 





01006 


01037 





53400 


1 


013 3 5 


01040 





46000 





01324 


01041 





7o 000 


1 


OOOOO 


01042 


2 


00001 


1 


01041 



XCHGW 



FLDIV 



YCOMP 



XCHGV 



VCOMP 



EXIT 



DRLUP 



CLS 


0,2 


STO 


HISCAR 


CLS 


Ot2 


STO 


LOSC A R 


CLS 


FLUNTY 


STO 


0*2 


CL* 


FL7ER0 


STO 


0»2 


TLA 


FLUNTY 


FDH 


HISCAR 


STQ 


COMMON 


TOO 


FLDIV+4 


FDH 


HISCAR 


TOO 


DIVUN 


STO 


COMMON+1 


CLS 


LOSCAR 


FDH 


HISCAR 


FMP 


COMMON 


FAD 


COMMON+1 


FAD 


COMMON 


TSX 


SYNAG-1.4 


STO 


HISCAR 


STQ 


LOSCAR 


LXA 


2MAND2.1 


TSX 


ARITH.4 


TIX 


YCOMP+1,1,2 


LXA 


2MAND2»1 


CLA 


0.2 


LDO 


0,2 


STO 


HISCAR 


CTO 


LOSCAR 


TIF. 


EXIT 


CLM 




SLW 


0.2 


SLV/- 


0.2 


PSE 


99 


TSX 


ARITH.4 


TIX 


VCOMP .1,2 


MSE 


97 


TRA 


FXIT 


PSF 


97 


MSF 


98 


TRA 


EXIT+2 


V'DR 


4 


TSX 


DRLUP, 4 


LXD 


CB0X0N.4 


TRA 


1.4 


RDR 


4 


TSX 


DRLUP+5.4 


SLN 


2 


TRA 


XCHGV-1 


LXA 


2MAND2.1 


LDA 


PDRORG 


CPY 


0,1 


TIX 


DRLUP+2.1.1 



W/O-l 
W/0 

W/O-l 

W/0 

OVERFLOW AND UNDERFLOW OF HIGH QUOT 
IMPOSSIBLE IN RANGES USED 
CLEAR MQ TOGGLE 

UNDERFLOW MEANS DENOM IS 2 TO 102 APPROX 



V/O-l 
V/0 



TEST THETA FOR ZERO 

V/O-l 

V/0 

SWITCH ON FOR ADDITION 



TEST FOR PLP 

TEST FOR SECOND TIME 

STORE NEW RT-HAND SIDE ON DRUM 



READ PLP CHANGE VECTOR TO T 
TURN ON ALTERNATOR FOR PASS 2 



READ OR WRITE RT-HAND SIDE 
T/0+2M+2 



:U 



01043 
01044 
01045 
01046 
01047 
01050 
01051 
0105? 
01053 
01054 
01055 
01056 
01057 
01060 
01061 
0106? 
01063 
01064 
01065 
01066 
01067 
01070 
01071 
010 7? 
01073 
01074 
01075 
01076 
01077 
01100 
01101 
01102 
01103 
01104 
01105 
01106 
01107 
OHIO 
01111 
01112 
01113 
01114 
01115 
01116 
01117 
0112^ 
01121 
0H?2 
01123 
01124 
01125 
01126 
01127 
01130 
01131 



0?000 4 

53400 1 

4^000 

70000 1 

2 0O001 1 

76200 

0?000 

n ^rv(i<lo ] 

56000 1 

-0 6^40 4 

o mooo o 

07400 4 

07000 

.0 76^00 

o o?ooo 

6^ 100 

-0 60000 

-0 76000 

0?000 

76000 

50000 1 

56000 1 

0?000 

5^000 1 

56°00 1 

07400 4 

0?000 

7400 4 

02000 

60100 

16200 

-0 17000 

76000 

0?000 

17000 

76500 

-0 3?000 

40200 

-0 60000 

-0 30000 

16100 

60100 

50200 

40100 

30OOO 

-0 76000 

-0 76000 

7*500 

16100 

02000 4 

-0 76000 

02000 

60100 1 

-0 6O000 1 

76000 



00001 
01335 
01326 
0000^ 
01046 
00304 
01037 

ooooo 
ooooo 

01377 
01140 
00636 
01145 
00143 
0H36 
OOOOO 
00001 
00142 
01072 
00142 
OOOOO 
OOOOO 
01074 
OOO^O 

OOOOO 
00607 
01151 

onoo 

01125 

ooooo 

01105 
01724 
00144 
01107 
01124 
OOOOO 
01316 
01332 
00001 
00001 
01114 
00001 
01301 
OOOOO 
00001 
00144 
00003 

ooooo 

01163 
00001 
00142 
01133 

OOOOO 
OOOOO 
00142 



,A P I T H 



MPADD 



SYNAG 



STSUM 



TRA 
LXA 
Lf\A 
OPY 
TIX 
PDR 
TRA 
CLA 
t_DO 
SXD 
T7E 
TS* 
TRA 
SLT 
TRA 
STO 
STQ 
SLT 
TRA 
SLN 
CLA 
LDO 
TRA 
CLA 
LDO 
TSX 
TRA 
TSX 
TRA 
STO 
TQP 
TMI 
SLN 
TRA 
TPL 
LRS 
ANA 
SUB 
STO 
UFA 
TQO 
STO 
CLS 
ADM 
FAD 
SLT 
SSM 
LPS 
TQO 
TRA 
SLT 
TRA 
STO 
STQ 
SLN 



1.4 

2MAND2.1 

FDRORG 

0,1 

0RLUP+7.1.1 

4 

ORLUP 

0,1 

0»1 

CB0XTW.4 

MPONY+2 

DPFMUL.4 

OVMPY 

3 

MPOMY 

COMMON 

COMMON* 1 

2 

MPADD+6 

2 

Otl 

0,1 

MPADD+8 

0,1 

Otl 

DPFA0D.4 

OVADD 

SYNAG-1.4 

STSUM 

COMMON 

SYNAG+4 

STSUM-1 

4 

SYNAG+6 

STSUM-1 

MASKCH 

BORROW 

COMMON* 1 

COMMON* 1 

SYNAG*11 

COMMON+1 

ONEADR 

COMMON 

COMMON+1 

4 



7ER0 
1.4 

2 

STSUM+6 

0.1 

0.1 

2 



READ PLP CHANGE VECTOR 
W/0 + 2M+2 



W/0 +2M+? 
W/0 + 2M+3 



TEST FOR ADDITION 
DP PRODUCT TO AUGEND 
TEST FOR SECOND PASS 



T/0+2M+2 
T/0+2M+3 



V/0*2M*2 
V/0*2M*3 



MAKE SIGNS OF OP SUM AGREE 



REMEMBER SIGN OF NUMBER 



MAKE MQ NEG 



T/0+2M+2 
T/0+2M+3 



^7 



01132 





09000 





01140 




TRA 


MPONY+2 


1 1 3 3 


o 


61100 


1 


00000 




<=T0 


0.1 


01134 


-0 


60000 


1 


00000 




STQ 


0,1 


01135 


o 


02000 





01140 




TRA 


MPONY+2 


01136 


a 


6M0O 


1 


00000 


MPONY 


5 TO 


0,1 


01137 


-0 


6O000 


1 


00000 




STO 


0,1 


01140 


-0 


76000 





00143 




SLT 


3 


01141 


•0 


53400 


4 


01377 




LXD 


CB0XTW»4 


01142 


n 


0^000 


4 


00001 




TRA 


1,4 


01143 





47000 





00430 


DIVUN 


HPP 


2 80 


0U44 





0?000 





01143 




TRA 


DIVUN 


01145 





5^000 





01147 


OVMPY 


CLA 


OVMPY +2 


01146 


o 


07000 





01152 




TRA 


OVADD* 1 


01147 


o 


O n 000 





0042 5 




HTR 


277 


01150 


g 


OOOOO 





00415 




HTR 


269 


01151 





50000 





01150 


OVADD 


CLA 


OVADD-1 


01152 


-0 


7^000 





00141 




SLT 


1 


01153 


"S 


40200 





01302 




SUB 


TWOADR 


01154 


-0 


76000 





00142 




SLT 


2 


01155 




40200 





01302 




SUB 


TWOADR 


01156 


-0 


76^00 





00143 




SLT 


3 


01157 





40200 





01301 




SUB 


ON F ADR 


01160 


f\ 


62100 





01161 




STA 


OVHLT 


01161 





4?nnn 


n 


00000 


OVHLT 


HPR 




01162 





07000 





01161 




TRA 


OVHLT 


01163 





5^000 





01300 


?FRO 


CLA 


NOUGHT 


01164 





5600C 





01300 




LDQ 


NOUGHT 


01165 





02000 


4 


00001 
00020 
00020 


J 


TRA 

ORG 
HFD 


1,4 

MCRORG 


00020 





5*000 





01341 


PREF10 


CLA 


WORIGN 


00021 


o 


40000 





01335 




ADD 


2MAND2 


A O?2 





62 100 





00760 




STA 


PULFL 


00023 


o 


67100 





00764 




STA 


FULEL+4 


00024 





40000 





01301 




ADD 


ONFAOR 


00025 





62100 





00765 




STA 


FULPL+5 


00026 





67100 





00773 




STA 


FULFL+11 


000 2 7 





02000 


4 


00001 

00750 




TRA 
ORG 


1*4 
SRORIG 


00750 





5^000 





01352 


YTODR 


CLA 


DR3LIM 


00751 


o 


6^100 





OOOOO 




<=T0 


COMMON 


00752 





1O000 





00756 




T7F 


YTOOR+6 


00753 





76200 


n 


00303 




RDR 


3 


00754 


o 


46000 





01352 




LDA 


DR3LIM 


00755 


r\ 


7^000 





00000 




CPY 


COMMON 


00756 





5*400 


3 


01335 




LXA 


2MAND2»3 


00757 


o 


5?400 


4 


01300 




LXA 


NOUGHT* 4 


00760 





50000 


1 


00000 


FULFL 


CLA 


0,1 


00761 


-0 


10000 





00764 




TN2. 


FULEL+4 


00762 


-2 


00002 


1 


00776 




TNX 


WD RUM, 1,2 


00763 


1 


00001 


4 


007 60 




TXI 


FULEL»4>1 


00764 


r» 


60100 


7 


OOOOO 




STO 


0,2 


00765 


-0 


50OOO 


1 


OOOOO 




CAL 


0,1 


00766 


-0 


37OOO 





01317 




ANA 


MASKER 


00767 





60200 





00001 




SLW 


COMMON+1 



V/0+2M+2 
V/0+2M+3 

W/0+2M+2 
W/0+2M+3 



DIV UNDERFLOW ERROR STOP 



READ WORD COUNT OF LAST ELIMINATION 

I COUNTER 
W/0+2M+2 



W/0+2M+2 

CLEAR LOW CHARACTERISTIC 



I 



n 



00770 • 


-0 


7<S400 4 00000 


PXD 0»4 


00 771 





7 A 70 00011 


ALS 9 


0077? 


-0 


5M.00 00001 


OPA COMMON+1 


00773 





6^200 ? 00000 


SLW 0*2 


00774 


? 


00002 2 00762 


TIX FULEL+2,2,2 


00775 





53400 2 01300 


LXA NOUGHT, 2 


00776 


-0 


7«!400 2 00000 


WDRUM PXD Ot? 


00 777 





4^200 013'' 6 


SUB 2MAN2D 


Oiono 


n 


40200 01030 


SUR DECR3 


oiooi 


^ 


60200 00004 


SLV COMMON+4 


0100? 





77100 00022 


ARS IB 


01003 





62100 00000 


STA COMMON 


0100& 





40000 01303 


ADD THREEA 


01005 


n 


7*400 1 OOOOO 


PAX 0»1 


01006 





76600 00303 


WDR 3 


01007 





40200 01341 


SUP WORIGN 


01010 





62100 01020 


ST A CONEL 


nion 





5^000 01350 


CLA ITERNO 


0101? 





40OOO 01360 


ADD INDEXR 


oioi? 





60]00 OOO03 


STO COMMON* 3 


01014 





46000 0135? 


LDA DR3LIM 


01015 





^rinpn OOOOO 


CPY COMMON 


01016 





70° l 00 0000 3 


CPY COMMON+3 


01017 


■J 


70000 01361 


CPY IMDFXS 


010?0 


r\ 


70000 1 OOOOO 


CONEL CPY 0,1 


01021 


2 


0^001 1 01020 


TIX C0NFL,1,1 


0102? 





7n000 00004 


CPY COMMON+4 


01023 





50000 01352 


CLA DR3LIM 


01024 





40000 OOOOO 


ADD COMMON 


01025 





62100 01352 


STA DR3LIM 


01026 


-0 


5^400 4 01376 


LXD CB0X0N,4 


01027 


."; 


0?000 4 00001 


EXIT TRA 1,4 


0103^ 





0O0O3 OOOOO 


DFCR3 HTR 0,0,3 






00020 


ORG MCR0R6 






0002 


K HED 


00020 





5^000 01341 


PREF11 CLA WORIGN 


00021 





40000 01335 


ADD 2MAMD2 


00022 





67100 00756 


STA DLOOP 


0023 





62100 00760 


STA DLOOP+2 


00024 





62100 00761 


STA DLOOP+3 


O0025 





67100 01131 


STA MOVEQ+1 


00026 





62100 01164 


STA STDIF+5 


00027 





67100 01040 


STA FLADD 


00030 





67100 01046 


STA RESLT 


00031 





40000 01301 


ADD ONEADR 


00032 





62100 01041 


STA FLADO+1 


00033 


c 


62100 01047 


STA RESLT+1 


00034 





67100 01132 


STA MOVFO+2 


00035 





50000 01342 


CLA TORIGN 


0003 6 





67100 01061 


STA FXIT+5 


OOO37 





4O200 01301 


SUB OMFADR 


r,0040 


n 


67100 01013 


STA GFTJS+1 


00041 





50000 01342 


CLA TORIGN 


00042 





40OOO 01335 


ADD 2MAND2 


00043 


U 


62100 01157 


STA STDIF 



iv'/0+2M+3 



VECTOR WORD COUNTS 
INDEX R AND ITER NO 



LOADING INTERLUDE FOR INITIALIZATION 



I 



2<1 



00044 





40000 





01301 




ADD 


ONEADR 




OOO45 





62100 





01160 




STA 


STOIF-H 




00046 





50000 





01334 




CLA 


1MAND1 




00047 


n 


40000 





01337 




ADO 


HORIGN 




00050 





6^100 





01021 




STA 


SURCH 




0O0 51 





62100 





00765 




STA 


FIND 




00052 





50000 





01335 




CLA 


2MAND2 




00053 





4^000 





01340 




ADD 


VORIGN 




0O054 




62100 





01031 




STA 


PIKUP 




00055 





4O000 





01301 




ADD 


ONFADR 




00056 





62100 





01032 




STA 


PIKUP+1 




0005 7 





02000 


4 


00001 

00750 




TRA 
0P6 


1»4 

5R0RIG 


RETURN TO EXEC LOADER 


00750 





76200 





0030 6 


CHECK 


pn«? 


4 


SAME LOC AS SPORIG 


00751 





16100 





00752 




TOO 


CHECK+2 




00752 





14000 





00753 




TOV 


CHECK+3 




00753 





76000 





00144 




SLN 


4 




00754 





46000 





01324 




LDA 


8DR0RG 


READ RT HAND SIDE TO W 


00755 





53400 


7 


01335 




LXA 


2MAND2#7 




00756 





70000 


1 


00000 


DL0OP 


CPY 


0»1 


W/0+2M+2 


00757 


2 


00001 


1 


00756 




T1X 


DLOOPtia 




00760 





5^200 


2 


00000 




CLS 


0»2 


W/0+2M+2 IN BOTH 


00761 





60100 


2 


00000 




STO 


0t2 


CHANGE SIGN OF D 


00762 


2 


00001 


2 


00760 




TIX 


DLOOP+2»2»l 




00763 





5*400 


3 


01334 




LXA 


1MAND1,3 




00764 





50000 





01300 




CLA 


NOUGHT 




0^765 





34^00 


1 


00O00 


FTND 


CAS 


n*i 


H/O+M+2 


00766 





02000 





010 31 


2 PROS 


TRA 


PKUP 




00767 





0^000 





010*1 


OR 


TRA 


PIKUP 




00770 


2 


0^001 


1 


00771 


NEGJ 


TIX 


NFGJ*l»ltl 




00771 


2 


00002 


4 


00764 




TIX 


FIND-1»4»2 




00772 


-0 


76000 





00144 




SLT 


4 




00773 





02000 





01121 




TRA 


ERROR 




00774 





02000 





00777 




TRA 


REDTP 




00775 





76400 





00205 


RST5 


SST 


5 




00776 





47000 





00750 




HPR 


488 


750 OCTAL ERROR STOP 


00777 





76200 





00225 


REDTP 


RTB 


5 




01000 





50000 





01342 




CLA 


T0RI6N 




01001 





62100 





01003 




STA 


REDTP+4 




01002 





40000 





01301 




ADD 


ONEADR 




01003 





70000 





00000 




CPY 






01004 





02000 





01001 




TRA 


REDTP+2 




01005 





02000 





01121 




TRA 


ERROR 




01006 





77100 





00355 




ARS 


237 




01007 





77100 





00355 




ARS 


237 




01010 


-0 


76000 





00012 




RTT 






01011 





02000 





00775 




TRA 


BST5 




01012 





51400 


1 


01311 


GETJ5 


LXA 


INFtNYtl 




01013 


r> 


50000 


1 


00000 




CLA 


Oil 


T/O-l 


01014 





34000 





01300 




CAS 


NOUGHT 


" 


01015 





0?0O0 





01020 




TRA 


SURCH-1 




01016 





02000 





00777 




TRA 


REDTP 


FND OF MATRIX RECORDS 


01017 


2 


00002 


1 


01013 




TIX 


GETJS+1.1.2 


SKIP OVER CURTAINS 


01020 





53400 


4 


01334 




LXA 


1MAND1»4 




01021 





34000 


4 


00000 


SURCH 


CAS 


0»4 


H/3+M+1 



■30 



010 22 


r> 


0?000 





01024 


FORJ 


TRA 


EQUAL +1 


01023 





02000 





01026 


EQUAL 


TRA 


PIKUP-3 


01024 


2 


.00001 


4 


01021 




TIX 


SURCH»4«1 


01025 


7 


0O002 


1 


01013 




TIX 


GFTJS+ltl»2- 


01026 


-0 


75400 


4 


00000 




PXD 


0»4 


0102? 





76700 





00001 




ALS 


1 


01030 


-0 


73400 


4 


00000 




PDX 


0»4 


01031 





50000 


4 


00000 


PIKUP 


CLA 


0»4 


01032 





56000 


4 


ooooo 




LOG 


0»4 


01033 


—0 


76000 


Q 


00144 




SLT 


4 


01034 





0?000 





01056 




TRA 


EXIT+2 


01035 


,o 


76000 





00144 




SLN 


4 


01036 





60100 





OOOOO 




STO 


COMMON 


0103? 


-0 


60000 





00001 




STQ 


COMMON* 1 


01040 





50OOO 


4 


OOOOO 


FLAOD 


CLA 


0»4 


01041 


o 


56000 


4 


OOOOO 




LOQ 


0,4 


01042 


-0 


6^400 


4 


01377 




sxo 


CB0XTW«4 


01043 


o 


07400 


4 


00607 




TSX 


DPFADD»4 


01044 





o?ooo 





01124 




TRA 


ADOVF 


01045 


-0 


53400 


4 


01377 




LXO 


CB0XTVU4 


01046 





60100 


4 


OOOOO 


RESLT 


STO 


0,4 


01047 


-0 


60000 


4 


OOOOO 




STO 


0,4 


01050 


-0 


76000 





00144 




SLT 


4 


01051 





02000 





01111 




TRA 


PLACE 


01052 





76000 





00144 




SLN 


4 


01053 


2 


00001 


? 


00770 




TIX 


NEGJ»2»1 


01054 


-0 


53400 


4 


01376 


EXIT 


LXD 


C80X0N»4 


01055 





02000 





01130 




TRA 


MOVFQ 


01056 





10000 





01116 




T?E 


PLACE+5 


01057 





6^100 





01366 




STO 


HISCAR 


01060 


-0 


60000 





01367 




STQ 


LOSCAR 


01061 





50000 


1 


OOOOO 




CLA 


0»1 


01062 


c 


62100 





01107 




STA 


PIXY 


01063 





62100 





01111 




STA 


PLACE 


01064 





40000 





01301 




ADD 


ONEADR 


01065 





67100 





01066 




STA 


ONTAP 


01066 





50000 





OOOOO 


ONTAP 


CLA 




01067 





10000 





01111 




T2E 


PLACE 


01070 





76500 





00033 




LRS 


27 


01071 


-0 


1O000 





01075 




TN7 


DUMMY+1 


01072 





5O000 





01074 




CLA 


DUMMY 


01073 





02000 





01101 




TRA 


DUMMY+5 


01074 


+ 2 


■5 "5000000000 


DUMMY 


OCT 


205000000000 


01075 





76500 





00010 




LRS 


8 


01076 





50000 





01307 




CLA 


141ADR 


01077 





76300 





oooio 




LLS 


8 


01100 





76700 





00023 




ALS 


19 


01101 





60100 





OOOOO 




STO 


COMMON 


01102 





50000 





01306 




CLA 


133ADR 


01103 





76300 





00033 




LLS 


27 


01104 





3O000 





OOOOO 




FAD 


COMMON 


01105 





07400 


4 


00636 




TSX 


DPFMUL*4 


01106 





02000 





01126 




TRA 


MPOVF 


01107 


-0 


5*400 


4 


OOOOO 


PIXY 


LXD 


0»4 


OHIO 





0?000 





01036 




TRA 


FLADD-2 



V/0+2M+2 
V/0+2M+3 



W/0+2M+2 

W/04-2M+3 



W/0+2M+2 
W/0+2M+3 



T/0 GET J ADDRESS 



SP FIXED PT ELEMENT 



2M+2-2I 



3/ 



01111 

01112 
01113 
01114 

01115 

01116 

0111? 

01120 

01121 

01122 

01123 

01124 

01125 

01126 

01127 

01130 

01131 

01132 

01133 

01134 

01135 

01136 

01137 

01140 

01141 

01142 

01143 

01144 

01145 

01146 

01147 

01150 

01151 

0115? 

01153 

01154 

01155 

01156 

01157 

01160 

01161 

01162 

01163 

01164 

01165 

01166 

01167 

01170 

01171 



05704 
05705 

05706 



50000 





00000 


PLACE 


CLA 




-0 17000 





on 16 




TMI 


PLACE+5 


50000 





01111 




CLA 


PLACE 


40000 





01302 




ADD 


TWOADR 


0?000 





01062 




TRA 


0NTAP~4 


2 00001 


2 


01017 




TIX 


GETJS+5»2»1 


77200 





00205 




REW 


5 


0?000 





01054 




TRA 


EXIT 


77200 





002.0 5 


ERROR 


REW 


5 


42000 





00577 




HPR 


383 


02000 





00750 




TRA 


CHECK 


42000 





00510 


ADOVF 


HPR 


328 


02000 





01124 




TRA 


ADOVF 


4?000 





00520 


MPOVF 


HPR 


336 


0?000 





01176 




TRA 


MPOVF 


53400 


3 


01335 


MOVED, 


LXA 


2MAND2»3 


50000 


1 


00000 




CLA 


0*1 


56000 


1 


00000 




LOQ 


0*1 


60100 





00000 




STO 


COMMON 


16200 





01140 


SYNAG 


TQP 


SYNA0+4 


-0 12000 





01157 




TMI 


STDIF 


76000 





00144 




SLN 


4 


02000 





01142 




TRA 


SYNAG+6 


12000 





01157 




TPL 


STDIF 


76500 





00000 




LPS 




-0 32000 





01316 




ANA 


MASKCH 


40200 





01332 




SUB 


BORROW 


-0 6O000 





00001 ' 




STQ 


COMMON+1 


-0 30000 





00001 




UFA 


COMMON+l 


16100 





01147 




TQO 


SYNAG+11 


60100 





00001 




STO 


COMMON+1 


50200 





01301 




CLS 


ONEADR 


40100 





00000 




ADM 


COMMON 


3O000 





00001 




FAD 


COMMON+1 


-0 76000 





00144 




SLT 


4 


-0 76000 





00003 




SSM 




76500 





00000 




LRS 




16100 





01167 




TQO 


ZERO 


6M00 


1 


00000 


STDIF 


STO 


0,1 


-0 60000 


1 


00000 




STO 


Otl 


2 00002 


1 


01131 




TIX 


M0VEQ+1*1*2 


76200 





00304 




RDR 


4 


46000 





01324 




LDA 


BDRORG 


70 000 


2 


00000 




CPY 


0»2 


2 00001 


2 


01164 




TIX 


STD1F+5.2*! 


02000 


4 


00001 




TRA 


1»4 


50000 





01300 


ZERO 


CLA 


NOUGHT 


56000 





01300 




LDO 


NOUGHT 


02000 





01157 




TRA 


STDIF 






05670 




ORG 


3000 






05670 


I 


HED 








05670 


JOB ID 


BS5 


12 


2330252 


34260 




BCD 


4CHECK SOLUTION 


674*43646331 








464560606060 









TEST FOR LAST ELEM 



577 ERROR STOP 
510 ERROR STOP 
520 ERROR STOP 



W/0+2M+2 

W/0+2M+3 



MAKE SIGNS OF DP NUM AGREE 



MAKE MQ NEG 



T/0+2M+2 PUT DIFF IN T 
T/0+2M+3 

READ RT HAND SIDE TO W 
W/0+2M+2 



BER 



3-?- 



05707 606^60222551 

05710 475131442143 

05711 402464214360 

05712 624643646331 

05713 464562224731 

05714 222162316260 

05715 314565255163 

05716 252460606060 

05717 606060222551 

05720 633025632160 

05721 216360442167 

05722 314464446060 

05723 606^60222551 

05724 464763314421 

05725 436062464364 

05726 633146456060 

05727 606060222551 

05730 262^71623122 

05731 432560624643 

05732 646^31464560 

05733 606060222551 

05734 454660262521 

05735 623122432560 

05736 624643646331 

05737 464^60222551 

05740 254524604626 

05741 604730216225 

05742 604645256060 

05743 606060222551 

05744 254524604626 

05745 606263212725 

05746 606060606060 

05747 606060222551 

05750 237023432560 

05751 475131456360 

05752 606060606060 

05753 606060254731 

05754 452566606246 

05755 436463314645 

05756 606060606060 

05757 606060224731 

05760 644522466445 

05761 242524606246 

05762 436463314645 

05763 606060214731 

05764 513127306360 

05765 302145246062 

05766 312425604647 

05767 254560274731 

05770 442163513167 

05771 606231452764 

05772 432151606060 

05773 606060216060 

05774 603163255121 

05775 633146456000 



BCD 4PRIMAL-DUAL SOLUTIONSBPI 



BCD 4BASIS INVERTED 



BCD 4THETA AT MAXIMUM 



BCD 40PTIMAL 50LUTI0N 



BER 



BER 



BER 



BCD 4FEAS1BLE SOLUTION BER 



BCD 4N0 FEASIBLE SOLUTION BER 



BCD 4END OF PHASE ONE BER 



BCD 4END OF STAGE BER 



BCD 4CYCLE PRINT EPI 



BCD 4NEW SOLUTION BPI 



BCD 4UN30UNDED SOLUTION API 



BCD 4RIGHT HAND SIDE OPFN GPI 



-0 



-1 



-2 



-3 



-4 



TITLES BCD 4MATRIX SINGULAR 



A PRCODE IS -5 



LINE2 BCD 4 ITERATION 000 STAGE 00 



33 



05776 

05777 

06000 

6001 

600 2 

06003 

06004 

06005 

0600 6 

06007 

06010 

6011 

0601? 

06013 

06014 

6015 

06016 

06017 

06020 

06021 

06022 

06023 

06024 

06025 

06026 

06027 

06030 

06031 

06032 

06033 

06034 

06035 

06036 

06037 

06040 

06041 

06042 

06043 

06044 

06045 

06046 

06047 

6050 

06051 

06052 

06053 

06054 

06055 

06056 

06057 

06060 

06061 

0606? 

06063 

06064 



000060606263 
212725600000 
606^26465144 
600*00606060 
006260316200 
606060604160 
606060606060 
606060606060 
222*63216060 
606060606060 
316060606060 
6*6*60606060 

606*00 606060 
606060606060 
6*6060606060 
606O60000060 
606060606060 
53400 4 01300 



-0 




2 



o 

2 







o 

2 

o 

-0 

o 











-0 

-0 



-0 

-0 



-0 

-0 

-0 













63400 
53400 
50000 
60100 
00001 
5*000 
60100 
00001 
07400 
07400 
07400 
53400 
50000 
6*100 
00001 
5**00 
12000 
50000 
6*100 
60100 
02000 
76000 
56000 
76300 
1*000 
50000 
5*100 
76300 
60200 
60000 
50000 
60200 
50000 
4O000 
7670* 
73400 
53400 



06437 
06723 

05676 
06701 
06022 
05704 
06741 
06025 
06550 
06537 
06537 
06723 
6002 
06701 
06034 
01374 
06045 
0600 5 
06733 
06734 
06060 
00000 
01361 
00006 
06052 
06434 

06002 

00006 

06733 

06734 

06731 

06734 

01374- 

01304 

00002 

0003? 

01303 



PCD 2 FORM 00 

515 BCD 10S ISO 
LIHE3 BCD 4 J 



BCD 4 



BETA 



RCD 4 



START LXA N0UGHT«4 

SXD 54ADFU4 

LXA SIX, 3 

CIA JOBID+6,1 
REOHFD STO D+6»l 

TIX REDHED-1.1,1 

CL4 JOBIO+l?t? 

STO D+38»? 

TIX REDHED+?.2»1 

TSX SEPRNT»4 

TSX RITEB»4 

TSX RITE3»4 
SETL2 LXA SIX,1 

CLA L1NE2+6»1 

STO 0+6 »1 

TIX SETL2+1.1.1 

CLA PRCODE 

TMI SETL2+10 

CLA LINE3+2 

STO D+32 

STO D+33 

TRA WHICH 

CLM 

LDQ INDEX5 

LGL 6 

TN? SETL2+15 

CLA BLANK 

ORA SIS 

LGL 6 

SLW D+32 

STQ D+33 

CAL 2BLNK 

ORS D+33 
WHICH CLA PRCODE 
TITLE ADD FfVEAD 

ALS 2 

PAX 26»2 

LXA THREEA.l 



00 



PICKUP 



CARD 



AND SET 



PRINT LINE 

DOUBLE 
SPACE 

AND 

SET 

FIRST 

EIGHT 

WORDS 

OF 

LINE 

TWO 



PUT PRINTER 

CODE PLUS 
FIVE IN 
INDEX B 
PICKUP AND 



3Y 



06065 • 


-0 SftOOO 3 05773 


CAL TITl_FS+3»3 


06066 


56000 3 05774 


LDQ TITLES+4»3 


06067 • 


-0 76300 00022 


LGL 18 


060 70 


60200 1 06741 


SLW D+38*l 


060 71 


2 0^001 1 06065 


T1X WHICH+5»1»1 


0607? • 


-0 60000 00001 


STQ C0MM0N+1 


06073 • 


-0 50000 0600 5 


CAL LINE3+2 


06074 


56000 2 05770 


LDQ TITLES.2 


60 75 


-0 76300 00022 


LGL 18 


06076 


60200 06735 


SLW D+34 


060 77 


5^000 01350 


CLA 1TERNO 


06100 


7400 4 06412 


TSX DIVBY3»4 


06101 


53400 2 01303 


LXA THREEA»2 


06102 


50000 06724 


CLA TEN 


06103 


62100 06515 


STA KEVIN+1 


06104 


5^400 4 06514 


LXA KEVIN.4 


06105 


-0 6*400 4 0672 7 


SXD SB0X»4 


06106 


07400 4 06500 


TSX C0NVE»4 


06107 


50000 01351 


CLA STAGES 


06110 


07400 4 06412 


TSX DIV8Y3»4 


06111 


50000 06603 


CLA SAVEME 


06112 


62100 06515 


STA KEVIN+1 


6113 


-0 5^400 1 06730 


LXD EIGHT, 1 


6114 


-0 6*400 1 06727 


SXO B80X«1 


06115 


-0 53400 1 01301 


LXD ONEADR.l 


06116 


5*400 2 01303 


LXA THREEAt2 


06117 


07400 4 06500 


TSX C0NVEt4 


06120 


50000 01346 


CLA PRICEX 


06121 


77100 00001 


ARS 1 


06122 


07400 4 06412 


TSX DIVBY3.4 


06123 


5O000 06727 


CLA BBOX 


06124 


62100 06515 


STA KEVIN+1 


06125 


53400 2 01303 


LXA THREEA»2 


06126 


07400 4 06500 


T^X C0NVE»4 


06127 


7400 4 06550 


TSX SEPRNT»4 


06130 


07400 4 06537 


TSX RITEB*4 


06131 


07400 4 06537 


TSX RITEB»4 


06132 


5^400 1 06723 


SETL3 LXA SIX.l 


06133 


50000 1 06011 


CLA LINE3+6.1 


06134 


60100 1 06701 


STO 0+6 tl 


06135 


50000 1 06017 


CLA LINE3+12»1 


06136 


60100 1 06741 


STO D+38»l 


06137 


2 00001 1 06133 


TIX SETL3+l«ltl 


06140 


76000 00000 


CLM 


06141 


56000 00001 


LDQ COMMON+1 


^6142 


-0 7*300 00006 


LGL 6 


06143 


76700 00022 


ALS 18 


06144 


-0 60200 06734 


OPS 0+33 


06145 


76000 00000 


CLM 


06146 


-0 76300 000?2 


LGL 18 


06147 


-0 6O200 06737 


ORS D+36 


06150 


0' 07400 4 06550 


TSX SEPRNT*4 


06151 


5^200 01301 


SETML CLS ONEADR 


06152 


60100 00001 


STO C0*!M0N+1 


06153 


50000 01337 


CLA HORIGN 



SET 



FOR 



STORE 
TITLES 
IN 

LINE TWO 
AND 
SAVE 
THREE 

CHARACTERS 
FOR LINE 
THREE 
UP 

CONVERSION 
ROUTINE 

PRINTING 
T 



SET UP 



CONVERSION 

ROUTINE 

TO 

PRINT 

S+l 



DOUBLE 
SPACE 



3f 



06154 

06155 

06156 

06157 

06160 

06161 

06162 

06163 

06164 

06165 

06166 

061.67 

06170 

06171 

06172 

06173 

06174 

06175 

06176 

06177 

06200 

06201 

06202 

06203 

06204 

06205 

06206 

06207 

06210 

06211 

06212 

06213 

06214 

06215 

06216 

06217 

6220 

06221 

06222 

06223 

06224 

06225 

06226 

06227 

06230 

06231 

06232 

*6233 

06234 

6235 

06236 

06237 

6240 

06241 

06242 









C\ 
\> 









o 



/*\ 
k ! 








o 


-0 




o 









-0 


o 





400OO 
62100 
50000 
4O000 
62100 
4000 
62100 
50000 
4n00O 
62100 
4H000 
62100 
5O00O 
76700 
40000 
60100 
50000 
4*000 
62100 
40000 
62100 
50000 
1?000 
40200 

loooo 

50000 
69100 
02000 
50000 
62100 
02000 
00000 
00000 
40000 
10000 
50000 
67100 
53400 
76000 





2 

-0 

-0 
• 
■0 
•0 
•0 



6O200 1 
00001 1 
53400 4 
50000 4 
1*000 
5^000 
76000 
5O10O 
7* 500 
50100 
6O200 
76000 
7*300 
56000 
76300 
6O200 



01334 

06226 

01340 

01335 

06250 

01301 

06251 

01341 

01335 

06302 

01301 

06303 

01334 

000?2 

01335 

00012 

01342 

01335 

06313 

01301 

06314 

01374 

06215 

06335 

06210 

06304 

06315 

06221 

06213 

6315 

06221 

06441 

06330 

01304 

06210 

06214 

06315 

06440 

00000 

06707 

06223 

00012 

00000 

06231 

06005 

00001 

06435 

00006 

06435 

06673 

00000 

00006 

06436 

00036 

066 74 



ADDRS 



MAIN 
LINER 



D0RG1 



ADD 

ST A 

CLA 

ADD 

ST A 

ADD 

STA 

CLA 

ADD 

STA 

ADD 

STA 

CLA 

ALS 

ADD 

STO 

CLA 

ADD 

STA 

ADD 

STA 

CLA 

TMI 

SUB 

T?^ 

CLA 

STA 

TRA 

CLA 

STA 

TRA 



ADD 
TNZ 
CLA 
STA 
LXA 
CLM 
SLW 
TIX 
LXD 
CAL 
TM7 
CAL 
PBT 
ORA 
LPS 
ORA 
SLW 
CLM 
LLS 
LDO 
LGL 
SLW 



1MAND1 

MAIN+5 

V0RI6N 

2MAND2 

D0RG1+6 

ONEADR 

D0RG1+7 

WORIGN 

2MAND2 

PICKB 

ONEADR 

PICKB+1 

1MAND1 

18 

2MAND2 

COMMON* 10 

TORIGN 

2MAND2 

PIKER 

ONEADR 

PIKER+1 

PRCODE 

ADDRS+2 

SEVEN 

ADDRS-3 

PICKB+2 

PIKER+2 

MAIN 

ADDRS 

PIKER+2 

MAIN 

DPFXP 

TWONE+1 

FIVEAD 

ADDRS-3 

ADDRS+1 

PIKER+2 

TWELVE. 1 

D+12»l 

MAIN+2»1»1 

COMMON+lOf 

0*4 

MA IN* 8 

LINE3+2 

ABLMK 
6 

A8LNK 


6 
8BLNK 

30 
D+l 



CLEAR 

PRINTER 

LINE 

GET ACTIVITY 

NAME 

PUT 
IT IN 

PRINT 



3t 



06243 


5r>000 06242 


CLA D0RG1 


06244 


62100 06515 


STA KEVIN*1 


06245 -0 53400 2 06730 


LXD EIGHT*? 


06246 - 


-0 63400 2 06727 


SXD B80Xt2 


06247 


53400 4 00012 


LXA C0MMON+10»4 


06250 


5^000 4 00000 


CLA OiA 


06251 


56000 A 000O0 


LDO Ot4 


06252 


7400 4 633 6 


TSX DPFLP#4 


06253 


76000 00000 


CLM 


06254 


60200 OOono 


SLW COMMON 


06255 


5^400 1 01301 


LXA ONEAORtl 


06256 


53400 2 01302 


LXA TW0ADR»2 


06257 


07400 4 06500 


TSX C0NVE»4 


06260 


50000 00001 


CLA COMMON* 1 


06261 


40000 01301 


ADD ONEADR 


06262 


60100 00001 


STO COMMON*! 


06263 


40200 01334 


SUB 1MAND1 


06264 


-0 1?000 06267 


TMI PREXIT+2 


H6265 


-0 5*400 4 01376 


PREXIT LXD CBOXONiA 


06266 


02000 4 00001 


TRA 1«4 


^6267 


5nOO^ 00001 


CLA COMMON+1 


06270 


07400 4 0641.2 


TSX D!VBY3»4 


06271 


53400 2 01303 


LXA THREEA,2 


06272 


53400 1 01301 


LXA 0NEADR»1 


06273 


07400 4 06500 


TSX C0NVE,4 


06274 


76000 00000 


CLM 


06275 


60200 00000 


SLW COMMON 


06276 


53400 1 01301 


LXA 0NEADR*1 


06277 


53400 2 01302 


LXA TW0ADR.2 


06300 


07400 4 06500 


TSX C0NVE,4 


06301 


5-5(400 4 00012 


LXA COMMON+10,4 


06302 


50000 4 OOOOH 


PICKS CLA 0,4 


06303 


56000 4 00000 


LDO 0,4 


06304 


07400 4 06336 


TSX DPFLP«4 


06305 


76000 00000 


CLM 


06306 


60200 00000 


SLW COMMON 


06307 


53400 2 01302 


LXA TW0ADR,2 


06310 


5^400 1 01301 


LXA ONEAORtl 


06311 


07400 4 06500 


TSX C0NVE»4 


06312 


53400 4 00012 


LXA COMMON+10,4 


06313 


5^000 4 OOOAO 


PIKER CLA 0,4 


06314 


56000 4 00000 


LDO 0*4 


06315 


07400 4 00000 


TSX 0,4 


06316 


5^400 4 06723 


LXA SIX, 4 


6317 


50000 4 06707 


CLA D+12»4 


06320 


6O100 4 06741 


STO D+36,4 


06321 


7 00001 4 06317 


TIX PIKER+4,4,1 


06322 


07400 4 06550 


TSX SEPPNT,4 


6323 


50000 00012 


RESET CLA COMMON+10 


63 24 


40200 06327 


INDEX SUB TWONE 


6325 


60100 00012 


STO COMMON* 10 


<^632 6 


0?000 06221 


TRA MAIN 


6327 


0O001 00002 


TV/ONE 2,0,1 


06330 


53400 4 01303 


LXA THRE£A»4 


06331 


5^000 0600 5 


CLA LIME3+2 



CONVERSION 

LINE POSITION 
PICKUP 

V HI 

AND LO 

AND CONVERT 
INSERT 

TWO 

BLANKS 

AND THEM 



INSERT 

TWO 
BLANKS 

AND THEN 
PICKUP 

B HI 

AND LO 

AND CONVERT 
INSERT 

TWO 

MORE 

BLANKS 

AND THEN 
PICKUP 

ER HI 

AND LO 

AND CONVERT 
MOVE LAST 

HALF 

LINE 

OVER 

DECREASE 

INDEX 

REGISTERS 
END OF THE MAIN LINE 

FOR SINGULAR 

MATRIX 



37 



06332 

06333 

06334 

*6335 

06336 

06337 

06340 

06341 

0634? 

06343 

6344 

06345 

06346 

06347 

63 50 

06351 

06352 

06353 

06354 

06355 

06356 

06357 

06360 

06361 

06362 

06363 

06364 

06365 

06366 

06367 

63 70 

06371 

06372 

06373 

06374 

06375 

06376 

06377 

6-4QO 

06401 

06402 

06403 

06404 

640 5 

06406 

06407 

06410 

06411 

06412 

6413 

6414 

06415 

06416 

06417 

06420 



7 



o 

-0 
n 



-0 









-0 



-0 

-0 








-0 
-0 



o 

-0 

-0 









-0 

-3 

-0 











n 

n 

o 








n 



o 

o 





60100 
00001 
0?000 
0*000 
63400 
60 10n 
16200 
12000 
76000 
0?000 
12000 
76500 
32000 
4O200 
60000 
3nooo 

16100 
60100 
50?00 
4° 100 
3O000 
76000 
7A000 
76500 
16100 
60100 
76300 

5*000 
3?000 
77100 
7*400 
62100 
50000 
32000 
0^233 
53400 

uooo 

76300 
76500 
14000 
760OO 
34000 
02000 
40200 
76300 
0?000 
50000 
02000 
56000 
22000 
60OOO 
5O000 
4O000 
6^100 
0?000 



4 
4 



A 

4 






n 





i"5 

n 




o 







Q 





4 



4 
4 

4 
4 
o 










r\ 
*^> 

o 

o 




c 

4 



0670 7 
0603? 
06316 

OOAA7 

00003 

00004 

06344 

06363 

00142 

06346 

06363 

OOQOO 

01316 

01332 

0000 5 

00005 

06353 

00005 

01301 

00004 

00005 

00142 

0000 3 

ooooo 

064? 1 

00004 

oooio 

00004 
01316 
0O033 
00016 
06377 
00004 
01317 
06376 
06374 
06377 

ooooo 

00233 
06410 
00003 
06427 
06410 
01301 
OOOOO 
06443 
06427 
06405 
06425 
06424 
OOOOO 
OOOOO 
06426 
OOOOO 
00001 



SEVEN 
DPFLP 



OOFF 



MNOK 



FORTH 



SHIFT 



MAXIM 
0TVBY3 



STO 
TIX 

TRA 

SXD 

STO 

TQP 

TMI 

SLN 

TRA 

TPL 

LRS 

ANA 

SUB 

STO 

UFA 

TOO 

STO 

CLS 

ADM 

FAO 

SLT 

SSM 

LPS 

TOO 

STO 

LLS 

CAL 

ANA 

ARS 

PAX 

STA 

CLA 

ANA 

TXL 

LXD 

TOV 

LLS 

LRS 

TOV 

SSP 

CAS 

TRA 

SUR 

LLS 

TRA 

CLA 

TRA 

LOQ 

OVH 

STO 

CLA 

ADO 

STO 

TRA 



D+12#4 

TW0NE*3»4*1 

PIKFR*3 

7 

COMM0N*3»4 

COMMON* & 

DPFLP+6 

SINOK 

2 

DPFLP+8 

5 I NOK 

MASKCH 

BORROW 

COMMON+5 

COMMON-* 5 

OOFF 

COMMON* 5 

ONEADR 

C0MM0N+4 

COMMON* 5 

2 



ZERO 

C0MM0N+4 

8 

COMMON* 4 

MASKCH 

27 

14»4 

SHIFT 

COMMON+4 

MASKFR 

SHIFT-1,4.155 
SHIFT-3»4 

SHIFT 



INSERT 
BLANK 

NUMBER 



155,4 

MAXIM 

lOToe 

MAXIM 
ONEADR 

DPFXP+2 

10T08 

MAXIM-3 

10T03+1 

10T03 

COMMON 

COMMON 

5TOM4 

COMMON 

1,4 



EXIT TO DPFXPT 
CONSTANTS 



3? 



06421 


50OOO 





01300 


7ER0 


CLA NOUGHT 


064?? 


56000 





01300 




LOO NOUGHT 


6423 


0?00C 





63 63 




TRA SINOK 


^64?4 


+00 0^ 00 


01750 


10T03 


DEC IOOOP'35 


6425 


+^000000 


00 764 




D?C 500B35 


6426 


+0001014 


?2335 


5 TOM 4 


DEC .0005R0 


06427 


+000*75360400 


10T08 


HFC 1000O0O00R35 


6430 


+000->76570?00 




DEC 50000000835 


06431 


+000^00000253 


5TOM<5 


OFC .000000006^0 


0643? 


+oooo-"-oooo 


040 


MINUS 


OCT 0O0000000040 


06433 


+ n "'oonoooo 


033 


POINT 


OCT ^00000000033 


64 34 


+0000 n 0000 


060 


RLANK 


OCT 00000000006 n 


'^643 5 


-? r '0o000 


00 


000 


4BLNK 


OCT -200000000000 


06436 


-206000000000 


PBLNK 


OCT -206000000000 


643 7 


OoOOO 





000 66 


54ADR 


54 


06440 


o oo^oo 





00014 


TV/ELVF 


1? 


6441 


~0 ft? 400 


4 


00003 


OPFXP 


SXD COMMON+3»4 


6442 


76500 





0001? 




LPS 10 


6443 


-0 6^000 





00002 




STO COMMON+2 


06444 


76000 





00003 




^SP 


06445 


5f000 





0643 




LDQ 10T08+1 


6446 


2?000 





06427 




DVH 10T08 


06447 


-0 60000 





00000 




STQ COMMON 


06450 


50000 





OOOOO 




CLA COMMON 


06451 


4O000 





06431 




ADD 5TOM9 


645? 


60100 


Q 


00000 




STO COMMON 


06453 


53400 


? 


06730 




LXA EIGHT, 2 


06454 


53400 


1 


01301 




LXA ONEAORtl 


6455 


7400 


4 


06500 




TSX C0NVF,4 


06456 


2 0000 5 


4 


06457 




TIX DPFXP+14»4.5 


06457 


-0 63400 


4 


01377 




SXD CBOXTW* 4 


6460 


50000 


A 


06433 




CLA POINT 


06461 


-0 5?400 


h. 


067?7 




LXD BB0X»4 


0646? 


0?000 





06514 




TRA KEVIN 


6463 


5^000 


c 


00002 




CLA COMMON+2 


06464 


1O000 





06466 




TZE 7ER0F 


06465 


5*400 


1 


01300 




LXA NOUGHT ,1 


06466 


6^200 





coo 


ZEPOF 


SLW COMMON 


06467 


53400 


? 


06730 




LXA EIGHT* 2 


06470 


7400 


4 


6500 




TSX C0NVE*4 


06471 


5O00O 





00003 




CLA C0MM0N+3 


06*7? 


6?? 00 





01377 




STD CBOXTW 


06473 


-0 5? 400 


4 


067?7 




LXD BB0X»4 


06474 


5O0O0 





0000? 




CLA COMMON+2 


64 75 


17000 





06513 




TPL KEVIN-1 


06476 


o 50000 





06432 




CLA MINUS 


06477 


o?ooo 





06514 




TRA KEVIN 


06500 


-0 6340^ 


4 


01377 


CONVE 


SXD CBOXTW, 4 


6501 


-0 53400 


4 


06727 


RSION 


LXD RB0X.4 


06502 


56000 





01300 




LDQ NOUGHT 


06503 


50000 





OOOOO 




CLA COMMON 


06504 


76500 





00002 




LRS ? 


06505 


40000 





OOOOO 




ADD COMMON 


06506 


76500 





00040 




LPS 32 


"'650 7 


„0 6^000 





OOOOO 




STO COMMON 



ASSUMES 25.45 NUMBER 

IN AC. MQ WITH LIKE SIGNS 

PQ CLFAR 



SET EXIT FROM 
DPFXP AND CONVE 



PRESENT XA AND XB AND 
PUT WORD TO BE 

CONVERTED IN COMMON 

PROGRAMMED 

MULTIPLICATION 
8Y 10 LEAVING 
DECIMAL DIGIT IN 
THE ACCUMULATOR 



31 



06610 





] O000 





06512 


T7E 


KEVIN-? 


06511 





53400 


1 


01300 


LXA 


NOUGHT tl 


06512 





07000 


1 


06514 


TRA 


KEVIN, 1 


06513 





50000 





06434 


CLA 


BLANK 


06514 


*^, 


76700 


4 


000 h 


KEVIN ALS 


32»4 


06515 


-0 


6O200 




00000 


OR* 




06516 


1 


00006 


4 


06517 


TXI 


KFVIN43»4»6 


06517 


-3 


00040 


4 


06524 


TXL 


KEVIN+8,4.32 


06520 





50000 


n 


06515 


CLA 


KEVIN+1 


06521 





4n?.C0 





01301 


SUB 


ONEADR 


06522 





62100 





06515 


STA 


KEVIN+1 


06523 





53400 


4 


06504 


LXA 


CONVE+4.4 


06524 


2 


00 001 


? 


06502 


TIX 


CONVE+2.2.1 


06525 


—0 


63400 


4 


06727 


SXD 


BB0X»4 


06526 


-0 


5-5400 


4 


01377 


LXO 


CB0XTW.4 


06527 


o 


7000 


4 


00001 


TRA 


1*4 


06530 





76600 





0C206 


V/TBCD WTO 


6 


06531 





53400 


3 


06723 


LXA 


SIXt3 


06532 





70000 


1 


06701 


CPY 


D+6.1 


06533 


? 


00001 


1 


0653? 


TIX 


WTBCD+2»1«1 


06534 


o 


70000 


2 


06741 


CPY 


D+38,2 


06535 


2 


00001 


2 


06534 


TIX 


WTBCD44.2.1 


06536 





07000 


4 


00001 


TRA 


1 t4 


06537 


-0 


63400 


4 


6440 


RITEB SXD 


TWELVE »4 


6540 


-0 


50000 





0600 5 


CAL 


LINE3+2 


06541 





5V+C0 


1 


06723 


LXA 


SIX # 1 


06542 





6O200 


1 


06701 


SL^ 1 


D+6.1 


6 543 





6^700 


1 


06741 


SLW 


D+38»l 


6544 


? 


00001 


1 


06542 


TIX 


RITEB+3.1.1 


06545 





07*00 


4 


06 5 50 


TSX 


SEPRNT.& 


06546 


-0 


«5->40O 


4 


06440 


LXD 


TWELVE* 4 


06547 





7000 


4 


00001 


TRA 


1.4 


•16550 


-0 


6*400 


4 


06603 


C ,EPRNT SXD 


SAVEME.4 


06551 


-0 


53400 


4 


06437 


LXD 


54AQR.4 


06552 


2 


00001 


4 


06561 


TIX 


SEPRNT+9.4.1 


06553 


o 


50000 





01301 


CLA 


ONEADR 


06554 





5 50 00 





06673 


LDQ 


D 


06555 


-0 


7730O 





00006 


RQL 


6 


"'6556 


-0 


76300 





00036 


LGL 


30 


06557 





60 700 


n 


06673 


SLW 


D 


06560 


o 


5*400 


4 


06A37 


LXA 


54ADR.4 


06561 


-0 


63400 


4 


06437 


SXD 


54ADR.4 


06562 





50000 





01374 


CLA 


PRCODE 


06563 





400OO 





01301 


ADD 


ONEADR 


06564 





10000 





06575 


T7E 


TEST4 


06565 





4^000 





01301 


ADD 


ONEADR 


6566 





10000 





06575 


TZE 


TEST4 


'"656 7 





7fi000 





00163 


SWT 


3 


">65?0 


n. 


07000 





06577 


TRA 


ON 


65 71 


n 


07400 


4 


06530 


TSX 


WTBCD,4 


6577 





7*00 


4 


06604 


ON T<X 


BCD, 4 


06573 


-0 


53400 


4 


06603 


EXIT LXD 


SAVEME.4 


06574 





02000 


4 


00001 


TRA 


1»4 


06575 


o 


7f000 





00164 


TESTA SWT 


4 


06576 


o 


07000 





06572 


TRA 


ON 



TEST ZERO CHARACTER 

SET SWITCH TO STORE 

ZERO FROM NOW ON 
STORE BLANK CHARACTER 
POSITION CHARACTER 
OR IT INTO PRINT LINE 
KEEP 

THE 

PRINT 

LINE 

MOVING 

ALONG 
TEST FOR END OF WORD 
SAVE LINE POSITION 
PREPARE TO BAIL OUT 

JUMP 
WRITE 

CYCLE 

PRINTING 

ON TAPE 

SIX 

AND 

RETURN 
SAVE RETURN ADDRESS 
STORE BLANK 

CHARACTERS 

JNPR1NT 

LINE 

THEN 



PREPARE, TO 
JUMP 



BAIL OUT 



PUT 



A ONE 
IN FIRST 
WORD TO 
SKIP TO 
NEW PAGE 



CYCLE PRINT 

NEW SOLUTION IN PLP 



WRITE REMOTE PRINTER 
WRITE DIRECT PRINTER 



WRITE DIRECT PRINTER 



06577 

06600 

06601 

06602 

06603 

06604 

06605 

6606 

66O7 

6610 

6611 

6612 

6613 

06614 

06615 

06616 

6617 

06620 

06621 

06622 

06623 

06624 

06625 

06626 

06627 

06630 

6631 

06632 

06633 

06634 

06635 

06636 

06637 

06640 

06641 

6642 

06643 

06644 

06645 

06646 

664 7 

06650 

06651 

06652 

06653 

06654 

06655 

06656 

06657 

06660 

6661 

06662 

06663 

06664 

06665 



7400 
76000 
02000 
02000 
0O0O0 
63400 
76600 
5">000 
1 ?000 

7*ono 

36100 
60200 
53400 
53*00 
76000 
6^200 
2 0O001 

n 5aooo 

60200 
5*400 
56000 
63400 
76000 
76300 
73400 
TfOOO 
76300 
73400 
50000 
60200 
6020 
77100 
6O200 
32000 
10000 
53400 
2 0*001 
5-3400 
50000 
60200 
60200 
2 00001 

o 50000 

76000 

3?000 

50000 

32000 

50100 

60200 

50000 

6O200 

50000 

60200 

2 0O040 

53400 



•0 


-0 

-0 



06530 
00165 
06573 
06572 
06676 
01377 
00361 
06673 
06613 
00361 
06732 
06673 
06627 
06632 
00000 
7022 
6616 
06722 
06726 
06723 
7001 
06727 
00000 
0000 2 

00100 

00000 
0000 4 
00021 
06726 
07021 
07015 
00O01 
06726 
06725 
06625 
06727 
06623 
01302 
07003 
07005 
7013 
06645 
07015 
00006 
07016 
07015 
07021 
07016 
7015 
07017 
70 1 6 
07020 
07017 
06614 
06440 



SAVFMF 
BCD 



REPET 



ABCD 



TSX 
SWT 
TRA 
TRA 

SXD 
WPR 
CLA 
TMI 
SPR 
ACL 
SLW 
LXA 
LXA 
CLM 
SLW 
TIX 
CAL 
SLW 
LXA 
LDO 
SXD 
CLM 
L6L 
PAX 
CLM 
LGL 
PAX 
CAL 
ORS 
ORS 
ARS 
SLW 
ANA 
TN2 
LXD 
TIX 
LXA 
CAL 
ORS 
ORS 
TIX 
CAL 
COM 
ANS 
CAL 
ANA 
ORA 
SLW 
CAL 
SLW 
CAL 
SLW 
TIX 
LXA 



WTBCD»4 

5 

EXIT 

ON 

D+3 

CB0XTW»4 

D 

BCD+7 

1 

8LNKR 

D 

BCD+19*1 

BCD+22t2 

D+87,3 

REPET-5,2»1 

0+23 

0+2 7 

D+24»2 

0+70*3 

BB0X»2 

2 
64*2 

4 
17»4 

0+27 

D+86»3 

D+82»5 

1 

D+2 7 

D+26 

REPET+2 

BB0X»2 

REPET*2*1 

TW0ADR»2 

D+72»3 

D+74.1 

D+80»3 

ABCD+1*2»1 

D+82»l 

0+83.1 

D+82*l 

0+86*1 

0+83»l 

D+82*l 

D+84*l 

D+83»l 

0+85*1 

D+84»l 

BCD+8»1»32 

TWFLVF»1 



WRITE REMOTE PRINTER 



TEST FOR ONE 
AND 

SKIP TO 

NEWPASE 
CHOOSE LEFT CARD IMAGE 
CLEAR 

D+6 

THRU 

D+22 
REFRESH 

COLUMN INDICATOR 
BEGINNING 

OF PRELIMINARY 

CARD IMAGE 

FORMATION 
PLACE ZONE PART 

IN INDEX B 
CLEAR ACCUMULATOR 
PLACE NUMERICAL PART 

ININDEX C 
FORM PRESENT 

COLUMN OF 

CARD IMAGE 
MOVE TO 

NEXT COLUMN 
CLOSE LOOP IF WORD 

IS NOT FINISHED 
MOVE TO NEXT WORD AND 

TEST END OF HALF IMAGE 
OR 

8-4 WORD 

AND 8-3 WORD 

INTO 

6,4, AND 3 WORDS 

OBTAIN 

THE 

S ROW 

OF 

THE 

CARD 

IMAGE 
03TAIN 

X 

AND Y 

ROWS 
GO BACK FOR RIGHT HALF IMAGE 
COPY 



41 



6666 


7">noo 1 06720 


COPY 


CPY D+21«l 


06667 


7r.Q00 1 06760 




CPY D+53»l 


06670 


2 00001 1 06666 




TIX C0PY»1»1 


06671 -0 53400 4 01377 




LXD C80XTWt4 


06672 


O'OOO 4 00001 




TRA 1»4 




06673 


r> 


BSS 23 


06722 ■ 


»*^0> , v** n *000* 




OCT -.00**0***0*00 


067?3 • 


f000O0O0000O6 


MX 


OCT 000000000006 


06724 


0*01? 06674 


TEN 


D+l(0»10 


06725 • 


f373737373737 




OCT 373737373737 


06726 


o^ooo o ooooo 






672 7 


OOOOO 06700 


BR OX 


D+5 


06730 


0*024 00010 


EIGHT 


8>0»20 


06731 


+O A 0O0O006060 


2RLNK 


OCT 000000006060 


0673? 


-1 70*00000*00 


BLNKR 


OCT -j 7*00000*000 




06733 




BSS 23 


06762 


o^ooo ooooo 


LIMIT 






00750 




ORG 488 


00750 


76200 00302 


PREF12 


RDS 194 


00751 


5-5(400 4 00755 




LXA PREF12+5*4 


00752 


70000 4 06762 




CPY LIMIT*4 


00753 


2 OnOOl 4 00752 




TIX PREF12+2»4»1 


n*754 


r\ o?00* 06017 




TRA START 


00755 


nnO*0 01*72 




LIMIT-3000 




00750 




ORG SRORIG 




00750 


M 


HEO 


00 750 


50000 01351 


RERYT 


CLA STAGES 


00751 


10000 00767 




TZE FILE+2 


00752 


7*400 00202 




BST 2 


00753 


76400 00202 




BST 2 


00754 


76200 00222 


ADVNC 


RTB 2 


00755 


7*000 OOOOO 




CPY COMMON 


00756 


0?000 00754 




TRA ADVNC 


00757 


76400 00202 




BST 2 


00760 


7*400 00202 




BST 2 


00761 


76200 00222 




RTB 2 


00 762 


76600 00333 




IOD 


00763 


77100 00355 




ARS 237 


00764 


77100 003*5 




ARS 237 


00765 


-0 7f>000 00012 


FILE 


RTT 


00766 


4?000 00760 




HPR 496 


00767 


5*000 01352 




CLA DR3LIM 


00770 


40000 01301 




ADO ONEADR 


00771 


6*100 OOOOO 




STO COMMON 


O0772 


7'*400 7 OOOOO 




PAX 0»7 


00 773 


4*000 01342 


SETUP 


ADD TORIGN 


00 774 


6?100 00776 




STA DRMRD 


00775 


76200 00303 




RDR 3 


00776 


7*000 1 OOOOO 


DRMRC 


> CPY 0*1 


00777 


2 00001 1 00776 




TIX DRMRD»1»1 


oiooo 


67100 01007 


STAOF 


! STA CPY2 


01001 


62100 01035 




STA BTAPE 


01002 


4*200 01301 




SUB ONEADR 


01003 


62100 01005 




STA LAST 


01004 


5*000 * 01300 




CLA NOUGHT 



LOOP 

FOR 

PRINTING 
PREPARE TO BAIL OUT 

JUMP 
SPACE FOR LEFT IMAGE 
LOC OF MINUS ZERO 
LOC OF 6 
LOC OF 10 
MASK FOR COL INDICATOR 



LOC OF 8 

TWO BLANKS ONLY 



SPACE FOR RIGHT IMAGE 



POSITION TAPE FOR NEW RECORD 



TAPE CHECK WHEN ADVANCING TAPE 2 



CHANGE FOR 8192 MEMORY 



H?~ 



01005 





62100 





00 00 


LAST 


ST A 




01006 





76600 





00?22 




WTB 


2 


01007 





70000 


? 


00000 


CPY2 


CPY 


0,? 


01010 


2 


00001 


2 


01007 




TIX 


CPY2»2»1 


01011 





77000 





00202 




V/EF 


2 


0101? 


-0 


7ft000 





00142 




SLT 


2 


oion 





0?000 





01015 




TRA 


LOADA 


0101* 





02000 





013.00 




TPfl 


ROLLQ 


01015 




53400 


1 


01302 


LOAOA 


LXA 


TWOADRtl 


1016 


ri 


76400 





00?02 




BST 


? 


01017 





7A40O 





oo?o? 


RTRY 


BST 


2 


010^ o 


_ n 


00001 


1 


01070 




TNX 


FTAPE ,1,1 


010?! 


n 


5^400 


2 


00000 




LXA 


COMMON* 2 


01022 





76200 





0022? 




RTB 


2 


010?3 





70000 





0000? 


CHKTP 


CPY 


COMMON* 2 


010?4 





o?ooo 





01023 




TRA 


CHKTP 


01025 





4?000 


1"* 


00761 




HPR 


497 


01026 





77100 


p 


00355 




ARS 


237 


01027 





77100 





00355 




ARS 


237 


01030 


-0 


76000 





0001? 




RTT 




01031 





0?000 





01017 




TRA 


RTRY 


0103? 





53400 


2 


01354 


PITER 


LXA 


TPALTR,? 


01033 


-0 


53400 


1 


013 54 




LXD 


TPALTRtl 


01034 





76600 


1 


00224 




WTB 


4.1 


01035 





7<t000 


4 


00000 


BTAPE 


CPY 


0»4 


01036 


2 


OOOO 1 


4 


01035 




TIX 


BTAPE. 4,1 


01037 





50OOO 





01351 




CLA 


STAGES 


01040 





IOOOO 



^ ' 


01074 




T2E 


WEF 


01041 





53400 


4 


0130? 


NUREC 


LXA 


TW0ADR,4 


104? 





o?ooo 





01045 




TRA 


RD 


01043 


-2 


00001 


4 


1 72 


A CAIN 


TNX 


PTPNG.4»1 


01044 





76400 


2 


00?04 




BST 


4,2 


01045 





76200 


2 


00224 


PD 


RTB 


4,2 


01046 





5OO00 





01342 




CLA 


TORIGN 


01047 





62100 





01051 


NUADR 


STA 


RDBTP 


01050 





4<""00C 





01301 




ADD 


ONEADR 


01051 





70000 





00000 


RDBTP 


CPY 




01052 





07000 





01047 




TRA 


NUADR 


01053 


n 


0?000 





01074 




TRA 


VEF 


01054 


n 


77100 





00355 




ARS 


237 


01055 





77100 





00356 




ARS 


237 


01056 


-0 


76000 





00012 




RTT 




01057 


i ■ 


0*>ooo 


n 


01043 




TRA 


AGAIN 


oinftO 


r\ 


50000 


f! 


01051 


CONT 


CLA 


RDBTP 


01061 





6? 100 


t -*\ 


01065 




STA 


WRBTP 


0106? 


3 


4>o?00 





0134? 




SUB 


TORIGN 


01063 


r> 


73400 


4 


00000 




PAX 


0»4 


01064 





76600 


1 


00224 




WTB 


4»1 


01065 





70000 


4 


00000 


WRBTP 


CPY 


0»4 


01066 


2 


0O001 


4 


01065 




TIX 


WR5TP.4.1 


01067 





02000 





01041 




TRA 


NUREC 


01070 





76000 





00142 


FTAPE 


SLN 


2 


01071 





0?000 





01032 




TRA 


RITFB 


0107? 





76000 





00143 


BTPNG 


SLN 


3 


OIO73 


f) 


09 000 





01060 




TRA 


CONT 



CLEAR COUNT AT END OF RECORD 



MEw RECORD WILL NOT READ AFTER 4 TRIE5 



TAPE SHOULD NOT REACH EOF— 761 STOP 



/V. 



LIGHT 2 FOft TAPE 2 ERROR 

LIGHT 3 FOR TAPE 3 OR 4 ERROR 



¥3 



01074 





77000 1 


00204 


WEF WEF 


4»1 


01075 


o 


77200 .0 


0020 2 


RFW 


2 


010 76 





7720O 


0*2*3 


REV! 


3 


01077 





77200 


00704 


REW 


4 


01100 





56000 


01354 


ROLLO LDO 


TPALTR 


01101 - 


-0 


77300 


00072 


ROL 


16 


^1102 


-0 


6*00 


0135& 


STO 


TPALTR 


01103 





5000- 


01351 


CLA 


STAGES 


01104 


o 


40000 


01301 


ADD 


ONEADR 


01105 





60100 


01351 


5T0 


STAGES 


01106 





76600 


00341 


WPU 




0110 7 


o 


76000 


00341 


SPU 


1 


OHIO 





76700 


00033 


ALS 


27 


01111 





60100 


00000 


STO 


COMMON 


01112 


o 


7*000 


00000 


CPY 


COMMON 


01113 





5*000 


01300 


CLA 


NOUGHT 


01114 





60100 


01352 


STO 


DR3LIM 


01115 


o 


50000 


01175 


CLA 


CONCD 


01116 





76500 


ooooo 


LPS 




01117 





07400 4 


01176 


TSX 


RPUNCH»4 


01120 


* 


500^0 


01334 


CLA 


1MAMD1 


0U21 


n 


76700 


00027 


ALS 


18 
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c 










2 

-0 

o 



























2 











r> 

-0 




50000 

60100 

50000 

62200 

40000 

62100 

62100 

62100 

62100 

62100 

5H000 

62100 

62100 

53400 

ooooi 

50000 

12000 

5HOO0 

60100 

50000 

60100 

60100 

60100 

60100 

76200 

50000- 

40000 

62100 

53400 

46000 

70000 

00001 

50000 

62100 

40000 

62100 

50000 

10000 

12000 

56000 





























1 

1 



























4 



4 

4 





00020 
00020 
00172 
01357 
01337 
01344 
01334 
00175 
00064 
00177 
00153 



0007< 

01341 

00156 

00200 

01334 

00037 

01344 

00174 

00173 

01354 

01300 

01350 

01351 

01344 

01352 

00304 

01340 

01335 

00056 

01335 

01324 

ooooo 

00056 
01342 
00072 
01301 
00117 
OOOOO 
00152 
00152 
01300 



ORG 

f HPD 

5BINV CLA 
5T0 
CLA 
STD 
ADD 
STA 
STA 
STA 
STA 
STA 
CLA 
STA 
STA 
LXA 
T!X 
TEST CLA 
TMI 
CLA 
STO 
CLA 
STO 
STO 
STO 
STO 
RDR 
CLA 
ADD 
STA 
LXA 
LDA 
P2V CPY 
TIX 
CLA 
STA 
ADD 
STA 
CLEAR CLA 
T7P 

TMI 
LDO 



MCRORG 



HPR 

MCRTRA 

HORIGN 

ARBTRS 

1MAND1 

NURUN+1 

CLEAR 

NURUN+3 

FAKF+1 

CLEAR+4 

WORIGN 

FAKE+4 

NURUN+4 

1MAND1»1 

TEST* 1*1 

ARBTRS 

NURUN 

1DECR 

TPALTR 

NOUGHT 

ITERNO 

STAGES 

ARBTRS 

DR3LIM 

4 

VORIGN 

2MAND2 

B2V 

2MAND2t4 

BDRORG 

0»4 

B2Vi4»l 

TORIGN 

CLEAR+6 

ONEADR 

UPROW 

0.1 

FAKF 
FAKE 
NOUGHT 



7ER0 TO NUMBER ARBTRS DONE 



POSITIVE ARBTRS MEANS FIRST TIME 
INVERSION RUN 



FOR 



B TO V SOLUTION VECTOR 



EXAMINE H REGION FOR VECTORS TO 
BE TRANSFORMED 







00070 


-0 


60000 


1 


ooooo 


STQ 


0,1 


00071 





60100 





00004 


STO 


COMMOM+4 


00072 





60100 





ooooo 


STO 




00073 





76500 





00022 


LRS 


18 


00074 





40.200 





00166 


SUB 


UP 


00075 


-0 


10000 





00155 


TNZ 


FAKE+3 


00076 





76300 





00006 


LLS 


6 


00077 





60100 





OOOOO 


STO 


COMMON 


00100 





76000 





ooooo 


CLM 




00101 





76300 





00006 


LLS 


6 


00102 





60100 





00001 


STO 


COMMON+l 


00103 





76000 





ooooo 


CLM 




00104 


o 


76300 





00006 


LLS 


6 


00109 





6O100 





00002 


STO 


COMMON+2 


00106 





56000 





ooooo 


LDQ 


COMMON 


00107 





20000 





00170 


MPY 


TFNSQ 


oono 


—0 


60000 





OOOOO 


STO 


COMMON 


00111 





56000 





ooooi 


LDO 


COMMON+l 


00112 





20000 


o 


00171 


MPY 


TEN 


00113 


-0 


60000 





00001 


STQ 


COMMON+l 


00114 





50000 





ooooo 


CLA 


COMMON 


00115 





40000 





00001 


ADD 


COMMON+l 


00116 





40000 





00002 


ADD 


C0MM0N+2 


00117 





6O100 





OOOOO UPROW STO 




00120 





5nOOO 





00117 


CLA 


UPROW 


00121 





40000 





01301 


ADD 


ONFADR 


00122 





62100 





00072 


STA 


CLEAR+6 


00123 





40000 





01301 


ADD 


ONEADR 


00124 





62100 





00117 


STA 


UPROW 


00125 


2 


00001 


1 


000 64 


TIX 


CLEAR»1»1 


00126 





50000 





00072 


CLA 


CLEAR+6 


00127 





62100 





00142 


STA 


UN1T+5 


00130 





40200 





01342 


SUB 


T0RI6N 


00131 





73400 


4 


OOOOO 


PAX 


0»4 


00132 


-3 


ooooo 


A 


00150 


TXL 


FAKE-2,4 


00133 





50000 





00117 


CLA 


UPROW 


00134 





62100 





00135 


STA 


UNIT 


00135 





50000 


4 


OOOOO UNIT CLA 


0»4 


00136 





40000 





01337 


ADD 


HORIGN 


00137 





62100 





00141 


STA 


UNIT+4 


00140 





62100 





00146 


STA 


UNIT+9 


00141 





50000 





OOOOO 


CLA 




00142 





56000 


4 


OOOOO 


LDQ 


0»4 


00143 





10000 





00146 


T?E 


UNIT+9 


00144 





4?000 





001.25 


HPR 


85 


00145 





02000 





00144 


TRA 


UNIT+7 


00146 


•0 


60000 





OOOOO 


STQ 




00147 


2 


00002 


4 


00135 


TIX 


UNIT,4.2 


00150 





50000 





00156 


CLA 


FAKE+4 


00151 





o?ooo 





00206 


TRA 


FIND J 


00152 





50200 





00167 FAKE CLS 


FONYH 


00153 





60100 


1 


OOOOO 


STO 


0,1 


00154 





02000 





00125 


TRA 


UPR0W+6 


00155 





5O200 





00004 


CLS 


C0MM0N+4 


00156 





60100 





OOOOO 


STO 





CLEAR H LOCATION JUST CHECKED 
VECTOR SYMBOL TO C0MM0N+4 
VECTOR TO T STORAGE 



VECTOR FOR INVERSION 
UNIT VECTOR 

COMPUTE ROW FROM VECTOR SYMBOL 



CONVERSION FOR ROW OF 
UNIT VECTOR 



STORE UNIT VECTOR AND ROW 
NUMBER IN T REGION 



CHECK NEXT LOCATION H 



PUT UNIT VECTOR IN H ON CORRECT ROW 



125 ERROR 
H FOR UNIT ROW UNEQUAL ZERO 



NEGATIVE VECTOR SYMBOL TO W STORAGE 



^ 



00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 



50000 01344 
40200 013C1 
60100 01344 
5*000 00156 
40000 01301 
62100 00156 
02000 00125 
♦000*00006447 
-140*00000000 
+000000000144 
+00000000001? 
42000 77777 
00001 







-0 




2 

o 


-0 













o 








2 


■o 


-0 










56000 
50000 
12000 
60000 
60100 
5*000 
40000 
62100 
0*001 
50000 
62100 
32000 
40200 
60100 
60100 
40000 
10000 
42000 
02000 
60100 
5*000 
40000 
62100 
02000 
76400 
4?000 
50000 
40000 
76000 
73400 
7*200 
70000 
0*001 
02000 
77100 
77100 
76000 
02000 
5*000 
4*000 
6*100 
53400 






1 


1 







1 





















6 

2 
7 









2 



00000 

01300 

00000 

00204 

00000 

00000 

00200 

01301 

00200 

00175 

00200 

00252' 

01320 

01341 

01364 

01365 

01344 

00217 

00120 

00215 

01370 

01341 

01334 

00262 

00226 

00205 

00706 

01342 

01301 

00006 

00000 

00225 

77776 

00233 

00333 

00355 

00355 

00012 

00224 

01370 

00173 
01370 
01365 



UP 

FONYH 

TEN SO 

TEN 

HPR 

1DECR 

NURUN 



FIND J 



NUREC 



REDT5 



SURCH 



CLA 
SUB 
5 TO 
CLA 
ADD 
STA 
TRA 
OCT 
OCT 
DEC 
D^C 
HPR 
PZE 
LDQ 
CLA 
TPL 
5TQ 
STO 
CLA 
ADD 
STA 
TIK 
CLA 
STA 
ANA 
SUB 
STO 
STO 
ADD 
TZE 
HPR 
TRA 
STO 
CLA 
ADD 
STA 
TRA 
BST 
HPR 
CLA 
ADD 
COM 
PAX 
RTR 
CPY 
TIX 
TRA 
ARS 
ARS 
RTT 
TRA 
CLA 
ADD 
STO 
LXA 



ARRTRS 

ONEADR 

ARBTRS 

FAKE+4 

ONEADR 

FAKE+4 

UPR0W+6 

000000006447 

-140000000*00 

100 

10 

32767 

0*0»1 

NOUGHT 

0*1 

NURUN+8 

Otl 

NURUN+4 

ONEADR 

NURUN+4 

NURUN+ltlfl 

NURUN+4 

SURCH+5 

MASKAD 

W0R1GN 

A0R1GM 

B0RI6N 

ARBTRS 

FINDJ+9 

80 

FINDJ+7 

HIBEST 

WORTGN 

1MAND1 

HOLDJ 

NUREC 

5 

454 

TORIGN 

ONEADR 

0,6 

5 

32766.2 

REDT5.2»1 

FILE 

237 

237 

NUREC-2 

HIBEST 
1DECR 
HIBEST 
B0RIGN»2 



TALLY NO OF ARBTRS 



RESTART RUN 

INVERSION RUN IS 
CONTINUING FROM THE 
END OF STAGE OF A 
PREVIOUS RUN 



VECTOR COUNT AND ARBTRS 
DISAGREE 120 ERROR 



TAPE ERROR 706 



END OF FILE IS ERROR 



SEARCH MATRIX TAPE FOR VECTORS 



ti 



00246 

00247 

00250 

00251" 

00252 

00253 

00254 

00255 

00256 

00257 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

00333 

00334 








2 



2 








50000 
60100 
10000 
•0 1?000 
40000 
-0 10000 
76600 
50000 
62200 
70000 
70000 
5O000 
60100 
50000 
40000 
6?100 
50000 
40200 
60100 
10000 
00002 
50000 
00001 
0?000 
77000 
77200 
77200 
50000 
62100 
53400 
76600 
70000 
2 00001 
76200 
-0 53400 
50000 
62100 

o 40000 

671.00 
4<">000 
62100 
53400 
5O000 
60100 
2 00001 
02000 
46000 
70000 
2 00001 

-0 53400 
02000 
00567 

+00000000 
4?000 
02000 



77776 
01361 
00226 
00272 
00000 
00273 
00223 
01370 
77777 
01361 
77777 
01361 

ooooc 

00262 
01301 
00262 
01364 
01301 
01364 
00276 
00245 
01361 
00252 
00272 
00203 
00205 
00203 
00262 
00305 
01365 
00304 
00000 
00305 
00301 
00331 
01342 
00323 
01301 
0O3?6 
00332 
00321 
01304 
00331 
00000 
00320 
00000 
00331 
00607 
00000 
01376 
00002 
00013 
0004 
00123 
00333 



HOLDJ 



NEXTW 



LOAD 



TRANS 



LOCAT 
FILE 



CLA 
STO 
TZE 
TMI 
ADD 
TN7 
WTB 
CLA 
STD 
CPY 
CPY 
CLA 
STO 
CLA 
ADD 
5TA 
CLA 
SUB 
STO 
TZE 
TIX 
CLA 
TIX 
TRA 
WEF 
REW 
RFW 
CLA 
STA 
LXA 
WDR 
CPY 
TIX 
RDR 
LXD 
CLA 
STA 
ADD 

STA 
ADD 
STA 
LXA 
CLA 
STO 
TIX 
TRA 
LDA 
CPY 
TIX 
LXD 
TRA 
P7F 
DEC 
HPR 
TRA 



32766i4 

INDEXS 

NUREC 

NEXTW-1 

0*2 

NEXTW 

3 

HIBEST 

32767*4 

INDEXS 

32767*4 

INDEXS 

HOLDJ 

ONEADR 

HOLDJ 

AORIGN 

ONEADR 

AORIGN 

NEXTW+3 

SURCH»4*2 

INDEXS 

SURCH+5.2.1 

NEXTW-1 

3 

5 

3 

HOLDJ 

LOAD-2 

B0RIGN»1 

4 

0,1 

L0AD-2»1*1 

1 

LOCAT. 2 

TORIGN 

TRANS 

ONEADR 

TRANS+3 

LOCAT+1 

TRANS-2 

FIVEAD.l 

L0CAT*1 

0*1 

TRANS-3,1,1 

LOCAT 

DPFADD*2 

0*2,1 

CBOX0N.4 

2.4 

11*0*375 

4 

83 

FILE 



FOR INVERSION 



TAPE 3 RECORD CONTAINS 
VECTOR SYMBOL 
TAPE 5 RECORD NUMBER AND 
MEMORY LOCATION FOR VECTOR 



SAVE VECTOR FOR DRUM 4 



NO MATCH TRY NEXT VECTOR 



STORE VECTORS FOR ARBTRS ON DRUM 4 



PREPARE TO RECALL MCR 



MOVE MCR READ TO T STORAGE 



123 ERROR 



66 



ZTABLF 


00?4?«00747 














00020 


ORG 


MCRORG 










00020 


U HED 




00020 





50000 





00563 


TNVMCR CLA 


LDATA 


00021 





07400 


4 


00700 


TSX 


DISTREU4 


00022 





50000 





0002* 


CLA 


TNVMCR* 4 


00023 





07400 


4 


00700 


TSX 


DISTRB.4 


00024 





00020 





00000 


P?E 


OtO.INVMCR 


00025 





30000 





01337 


START CLA 


HORIGN 


00026 





40000 





01334 


ADD 


1MAND1 


0002T 





67100 





0006? 


STA 


PNDST+4 


00030 





62100 





00063 


STA 


ENDST+6 


00031 





62100 





00076 


STA 


FIXH 


00032 





6?100 





00100 


STA 


FIXH+2 


00013 





6*100 





0014? 


STA 


UNDO 


00034 





62100 





00147 


STA 


UNDO* 2 


00033 





62100 





00133 


STA 


PREPA 


00036 





62100 





00136 


STA 


PREPC 


00037 





62100 





00365 


STA 


CLRH+1 


00040 





62100 





00367 


STA 


CLRH+3 


00041 





50000 





01342 


CLA 


TORIGN 


00042 





40000 





01335 


ADD 


2MAND2 


00043 





6>100 





00311 


STA 


T7ER0 


00044 





62100 





00543 


STA 


OC2 


00049 





62100 





00512 


STA 


P2T 


00046 





76000 





00161 


NUCYC SWT 


1 


00047 





02000 





00051 


TRA 


ENDST-4 


00030 





02000 





OOO54 


TRA 


ENDST-1 


00051 





50000 





01353 


CLA 


DR3END 


00052 





40200 





01352 


SUB 


DR3LIM 


00053 





17000 





00157 


TPL 


BEGCY 


00034 





76000 





00000 


CLM 




00055 





6O200 





01374 


ENDST SLW 


PRCODE 


00056 





53400 


4 


01334 


LXA 


JMAND1.4 


00057 





5*000 





00561 


LOQ 


FONYH 


00060 





50000 





00561 


CLA 


FONYH 


00061 





40000 


4 


00000 


ADD 


0*4 


00062 


-0 


10000 





00064 


TNZ 


ENDST+7 


00063 


-0 


60000 


4 


00000 


STQ 


0*4 


00064 


2 


00001 


4 


00060 


TIX 


ENDST+3.4,1 


00065 





77200 





00225 


REW 


5 


00066 





76000 





00000 


CLM 




00067 





67200 





00200 


STD 


WHERE 


00070 





50000 





00574 


CLA 


CHECK 


00071 





07400 


4 


00700 


TSX 


DISTRB»4 


00072 





53400 


4 


01334 


LXA 


1MAND1.4 


00073 





50200 





00561 


CLS 


FONYH 


00074 





76500 





00043 


LRS 


35 


00075 





50000 





00561 


CLA 


FONYH 


00076 





40200 


4 


00000 


fixh sue 


0.4 


00077 


-0 


10000 





00101 


TN7 


FIXH+3 


00100 


•0 


60000 


4 


00000 


STQ 


0*4 


00101 


2 


00001 


4 


00075 


TIX 


P!XH-1»4«1 


00*02 





07400 


4 


00541 


TSX 


VERIF.4 



CALL IN SUB MCR TO SET UP 

BASIS HEADINGS AND LOCATE VECTORS 

RETURN FROM SUB MCR 

S^T UP ADDRESSES 



TEST SWITCH 1 



SET ARTIFICIAL VECTORS NEGATIVE 
FOR CHECK ROUTINE 



RESTORE ARTIFICIAL VECTOR TO PLUS 



u7 



00103 

00104 

00105 

00106 

00107 

00110 

00111 

00112 

00113 

00114 

00113 

00116 

00117 

00120 

00121 

00122 

00123 

00124 

00123 

00126 

00127 

00130 

00131 

00132 

00133 

00134 

00133 

00136 

00137 

00140 

00141 

00142 

00143 

00144 

00143 

00146 

00147 

00150 

00131 

00132 

00153 

00134 

00155 

00156 

00157 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00170 

00171 



5*000 01344 
77100 00022 



3 

2 









4 



4^000 01375 
7*000 1 00000 

1 00130 

4 

4 



2 



6^100 
5*400 
0*000 
3*200 
4*000 
69100 
62100 
33400 
7*200 



0*001 
0*001 
30000 
1*000 
50200 



01375 
01344 
00141 
01344 
01341 
00130 
00135 
01334 
00304 



00133 
00000 
00140 

ooooo 



0?000 00106 

50000 00575 

07400 4 00730 

50000 01374 ABC 

40200 00557 

10000 00341 

5*000 01352 CHNGE 

1*000 00151 

7*000 00142 









-3 









2 
2 

-0 


6*100 4 00000 
-2 0*001 2 00141 
2 0*001 4 00133 
5*000 00576 
07400 4 00700 
5*400 4 01334 
5fOOO 01300 
50000 4 OOOOO 
1?000 00150 
-0 60000 4 OOOOO 

2 00001 4 00145 

50000 00554 

12000 00154 

42000 00070 

76000 00161 

02000 00157 

4?000 OOOOO 

50000 00560 

60100 01357 

7^200 00222 

50000 00564 

07400 4 00700 

0?000 00167 

76400 00203 

47000 00701 

76200 00223 JREAD 

7*000 01361 

7*000 01364 



PREP 



PREPA 

PREPB 

PREPC 

PREPO 
NUTAP 



UNDO 

CKMRK 

XYZ 

BEGCY 



TRA 

CLA 

TSX 

CLA 

SUB 

T7E 

CLA 

T7E 

SLN 

CLA 

ARS 

STO 

LXA 

TXL 

CLP 

ADO 

ST-A 

STA 

LXA 

ROR 

LDA 

CPV 

T1X 

TIX 

CLA 

TNZ 

CLS 

STO 

TNX 

TIX 

CLA 

TSX 

LXA 

LOO. 

CLA 

TPL 

STO 

TtX 

CLA 

TPL 

HPR 

SWT 

TRA 

HPR 

CLA 

STO 

R C W 

CLA 

TSX 

TRA 

BST 

HPR 

RTB 

CPY 

CPY 



ABC 

PRINT 

DISTRB»4 

PRCOOE 

DEC 8 

K 

0R3LIM 

CKMRK 

2 

ARBTRS 

18 

STATUS 

ARBTRS » 3 

NUTAP»2 

ARBTRS 

WORIGN 

PREP 

PREPB 

1MAND1** 



TURN ON LIGHT 2 



STATUS 

0*1 

PREP»1«1 

PREPA»4»1 

0*4 

PREPD 

0*2 

0*4 

NUTAP»2»1 

PREPA»4*1 

RERYT 

0ISTRB»4 

1MAND1 »4 

NOUGHT 

0»4 

UNOO+3 

0*4 

UND0*4«1 

MARK 

XYZ 

56 

1 

BEGCY 

BEGIN 

MCRTRA 

2 

STSOL 

DISTRB»4 

JREAD 

3 

449 

3 

TNDEXS 

A0RI6N 



RECALL REMAINING VECTORS EOR ARBTRS 



PLACE REMAINING ARBTRS IN ZERO SPOTS 
IN H AS NEGATIVE HEADINGS FOR 



RESTORE H REGION 



END Of STAGE ERROR 



701 ERROR TAPE 3 
CALL IN NEXT ARBTRS 



a 



00172 

00173 

00174 

00175 

00176 

00177 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

002Q7 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00260 



7*600 

7-»l00 
77100 
76000 
0?000 
5*400 
00000 
07400 
0?000 
4?O00 
0?000 
•0 5*400 
6*400 
00000 
0?000 
50000 
l'lOOO 
0?000 
OrtOOi 

76200 
70000 
0?000 
0?000 
7*600 
77100 
77100 
7*000 
7*100 
0*000 
7*400 
4?000 
7*200 
5n000 
67100 
40000 
7*000 
07000 
07000 
77100 

7-noo 

7*000 

o?ooo 

07400 
02000 
7*400 
50200 
40000 
62200 
50000 
6*100 
50000 
07400 
50000 
0^400 











00333 

0035? 
00355 
00012 
00165 
01364 
00214 
00211 
00205 
00126 
00203 
00200 
00207 
00250 
00203 
01301 
0000? 
00001 
00221 
00225 
00000 
00214 
00577 
00333 
00355 
00355 
00012 
00000 

00231 
00205 
00705 
00225 
01342 
00235 
01301 
00000 
00233 
00537 
00355 
00355 
00012 
00227 
00211 
00250 
00205 
0056? 
01364 
00200 
01341 
01365 
00567 
00700 
00570 
00700 



WHERE 

UGH 
COMP 
NUMB 
SI2E 

RCORO 
OFF 



AGAIN 
RDOIV 

VCPY 



OIVNO 



50000 01300 



100 
AP<; 

ARS 

RTT 

TRA 

LXO 

TIX 

TSX 

TRA 

HPR 

TRA 

LXD 

SXD 

TXL 

TRA 

CLA 

TN7 

TRA 

TNX 

RTB 

CPY 

TRA 

TRA 

IOD 

ARS 

ARS 

RTT 

NOP 

TRA 

BST 

HPR 

RTB 

CLA 

STA 

ADD 

CPY 

TRA 

TRA 

ARS 

ARS 

RTT 

TRA 

TSX 

TRA 

BST 

CLS 

ADD 

STD 

CLA 

STO 

CLA 

TSX 

CLA 

TSX 

CLA 



237 
237 

JREAD-2 

A0RIGN»2 

RC0RD.2 

SI?.E»4 

COMP 

86 

UGH 

WHERE *4 

NUMB* 2 

D!VN0t4 

UGH 

ONEADR 

2*4 

1*4 

0PF»2tl 

5 

COMMON 

RCORD 

HOLD 

237 
237 



RDDIV 
5 

453 
5 

TORTGN 

VCPY 

ONEADR 

VCPY-2 
EOF 
237 
?37 

AGAIN 

SI2F.4 

DIVNO 

5 

1DFCR 

A0R16N 

WHERE 

WORIGN 

BORIGN 

LDFLV 

D!STRB»4 

FTRAN 

D1STRB,4 

NOUGHT 



DIVISION WANTFD 

LESS CURRENT DIVISION 

IF EQUAL CHECK STAGE AND MEMORY SIZE 

DIVISION IN MEMORY 

126 STOP OUT OF PHASE 

USE PIKUP TO TRY AGAIN 



DIVISION NUMBERS ARE EQUAL 
OUT OF PHASE 

FOR LARGE MEMORY CHECK STAGES 
STAGE NON ZFRO OP MEMORY 4096 
STAGE IS 7ER0 MEMORY IS 8192 

ADVANCE TAPE TO RECORD WANTED 



END OF 
DELAY 



FILE IS ERROR 



705 ERROR MATPTX TAPE HAS TAPE CHECK 



NO END OF FILF 



LEAVE TAPE AT CURRENT POSITION 



STORE TAPE POSITION 



if 



00350 


40200 00562 


SUB 1DECR 


00351 


4*000 01301 


AOD ONEADR 


00352 


60100 01344 


STO ARBTRS 


00353 


-0 3?000 01320 


ANA MASKAO 


00354 


-0 1*000 00046 


TN? NUCYC 


00355 


60200 01344 


SLW ARBTRS 


00356 


50000 00555 


CLA DEC6 


00357 


7T200 00223 


PEW 3 


00360 


77200 00225 


REW 5 


00361 


6M00 01374 


STO PRCODE 


00362 


56000 01300 


LDQ NOUGHT 


00363 


5^400 1 01334 


LXA lMANOTtl 


00364 


5*000 00561 


CLRH CLA FONYH 


00365 


40000 1 00000 


ADO 0*1 


00366 


-0 1*000 00370 


TN7 CLRH* 4 


00367 


-0 60000 1 00000 


STO 0.1 


00370 


2 0*001 1 00364 


TIX CLRH.ltl 


00371 


50000 00574 


CLA CHECK 


00372 


07400 4 00700 


TSX D!STRB»4 


60373 


50000 00575 


CLA PRINT 


00374 


07400 4 00700 


TSX DISTRB»4 


00375 


5*000 01340 


CLA VORIGN 


00376 


4*000 01346 


ADO PRICEX 


00377 


62100 00402 


STA VMH 


00*00 


4*000 01301 


ADO ONE ADR 


00401 


69100 OO4O3 


STA VML 


00402 


5*000 00000 


VMH CLA 


00403 


5*000 00000 


VML LDQ 


00404 


6*100 01372 


STO HIMAXV 


00405 


-0 60000 01373 


STQ LOMAXV 


00406 


50000 00564 


SUMRY CLA STSOL 


00407 


07400 4 00700 


TSX DISTRB.4 


00410 


53400 1 01351 


LXA STAGES »1 


00411 


-3 00000 1 00455 


TXL PI»ltO 


00412 


76400 00202 


BST 2 


00413 


76400 00202 


BST 2 


00414 


76200 00222 


ADVNC RTB 2 


00415 


70000 00000 


CPY COMMON 


00416 


O9OOO 004J4 


TRA ADVNC 


00417 


76600 00333 


IOD 


00420 


76400 00202 


BST 2 


00421 


0?000 00423 


TRA BOCSP 


00422 


42000 00702 


HPR 450 


00423 


76400 00202 


BCKSP BST 2 


00424 


76200 00222 


RTB 2 


00425 


53400 2 01300 


LXA NOUGHT. 2 


00426 


<**000 0134? 


CLA TORIGN 


00427 


62100 0043! 


STA CPY2 


00430 


4*000 01301 


ADD ONEADR 


00431 


7*000 00000 


CPY2 CPY 


00432 


1 0*001 2 00427 


TXI CPY?-2»2»1 


00433 


02000 00450 


TRA CPY4+3 


00434 


77100 00355 


ARS 237 


00435 


77100 00355 


ARS 237 


00436 


-0 76000 00012 


PTT 



ADDRESS IS NO, LEFT TO 00 

DECREMENT IS NO. DONE ON 
CURRENT RUN 



NO TAPES TO WRITE 



MOVE TAPE 2 TO EOF 



702 TAPE ERROR 



7^ 



00261 6*100 01364 

00262 30000 00571 

00263 07400 4 00700 

00264 3*000 01360 

00265 inOOO 00337 

00266 77100 00023 

00267 40000 01337 

00270 62100 00277 

00271 30000 00572 

00272 07400 4 00700 

00273 50000 01350 

00274 40000 01301 

00275 60100 01350 

00276 5*000 01361 

00277 Q 6*100 00000 NEWH 

00300 7*000 00164 

00301 0?000 00303 

00302 OOOO 00303 

00303 76000 00165 

00304 02000 00331 

00305 30200 01301 CYCPR 

00306 60100 01374 

00307 53400 1 01335 

00310 50000 01300 

00311 6*100 1 00000 T2ER0 

00312 2 0*001 1 00311 

00313 30000 00575 

00314 07400 4 00700 

00315 07400 4 00211 

00316 0?000 00320 
00317- 0?000 00324 

00320 76400 00205 BACK5 

00321 50000 00200 

00322 4*200 00562 

00323 62200 00200 

00324 5*000 01374 WHAT 

00325 40000 01304 

00326 -0 10000 00331 

00327 42000 00122 
0*330 0?000 0005* 

00331 50000 00573 STORE 

00332 07400 4 00700 

00333 76000 00166 

00334 0?000 00347 

00335 5*000 00557 

00336 02000 00055 

00337 5*200 01304 SNGLR 

00340 02000 00306 

00341 5*000 00554 K 

00342 1?000 00344 

00343 4*000 00077 

00344 50000 01350 KA 

00345 5f000 01351 

00346 42000 00010 

00347 30000 01344 TALLY 



STO AORIGN 
CLA CHU7R 
TSX DISTRB»4 
CLA INDEXR 
T7E SNGLP 
ARS 19 
ADD HORIGN 
STA NEWH 
CLA ELIMN 
TSX D!STRBt4 
CLA ITERNO 
ADO ONEADR 
STO ITERNO 
CLA INDEX*; 
STO 
SWT 4 

TRA NEWH+4 
TRA CYCPR 
SWT 5 
TRA STORE 
CLS ONEAOR 
STO PRCODE 
LXA 2MAND2»1 
CLA NOUGHT 

STO 0.1 

TIX T7ER0»1»1 

CLA PRINT 

TSX DISTRB»4 

TSX SIZE»4 

TRA BACK3 

TRA WHAT 

BST 5 

CLA WHERE 

SUB 10ECR 

STO WHERE 

CLA PRCODE 

ADD FIVE AD 

TNZ STORE 

HPR 82 

TRA END^T 

CLA YTODR 

TSX DISTR8»4 

SWT 6 

TRA TALLY 

CLA DEC8 

TRA ENDST 

CLS EIVEAD 

TRA CYCPR-M 

CLA MARK 

TPL KA 

HPR 63 

CLA ITERNO 

LDQ STAGES 

HPR 8 

CLA ARBTRS 



MATRIX SINGULAR 
FINISH CYCLE 



TEST FOR CYCLE PRINT 



TEST FOR CYCLE PRINT 



SET T RFGION TO 7ER0 
FOR CYCLE PRINT 



122ERROR MATRIX SINGULAR 



CHECK PRINT ERROR 

DISPLAY ITERNO AND STAGES 
CHECK PRINT GOOD 
ARBTRS IS NEGATIVE 



7/ 



0043? 





02000 





00422 


TRA 


BCKSP-1 


00440 





7*400 





00202 


8ST 


2 


00441 





5*000 





00431 


CLA 


CPY2 


00442 





62100 





00445 


STA 


CPY4 


00443 





76600 





00323 


WRS 


211 


00444 





76600 





00224 


WTB 


4 


00443 





70000 


2 


00000 CPY4 CPY 


0.2 


00446 


2 


ooooi 


2 


00445 


TIX 


CPY4.2.1 


00447 


2 


ooooi 


1 


00423 


TIX 


BOCSP.1.1 


00450 





77000 





00223 


WEF 


3 


00431 





77000 





00224 


WEF 


4 


00432 





77200 





00222 


REW 


2 


00453 





7"»200 





00223 


ftPW 


3 


00434 





77200 





00224 


REW 


4 


00433 





5^000 





00365 PI 


! CLA 


FORMC 


00456 





07400 


4 


00700 


TSX 


DISTRB.4 


00457 





50000 





00566 


CLA 


BTRAN 


00460 





07400 


4 


00700 


TSX 


DISTRB.4 


00461 





5*000 





01341 


CLA 


WORIGN 


00462 





40000 





01333 


ADD 


2MAND2 


00463 





62100 





00470 


STA 


P2DR 


00464 





6?100 





00516 


STA 


B2W 


00465 





5*400 


1 


01335 


LXA 


2MAND2.1 


00466 





76600 





00304 


WDR 


4 


00467 





46000 





01323 


LDA 


PD RORG 


00470 





70000 


1 


00000 P20R CPY 


0.1 


00471 


2 


ooooi 


1 


00470 


TIX 


P2DR.1.1 


00472 





4?000 





00024 


HPR 


20 


00473 





76000 





00162 


SWT 


2 


00474 





o?ooo 





00502 


TRA 


END 


00475 





53400 


7 


01300 


LXA 


NOUGHT .7 


00476 





76200 





00301 


RDR 


1 


00477 





70000 





00000 


CPY 





00500 





70000 





OOOOI 


CPY 


1 


00501 





0?000 





00000 


TRA 





00502 





30000 





00376 END CLA 


RFRYT 


00503 





07400 


4 


00700 


TSX 


DISTRB.4 


00504 





50000 





00564 


CLA 


ST SOL 


00505 





07400 


4 


00700 


TSX 


DISTRB.4 


00506 





4?000 





00026 


HPR 


22 


00507 





53400 


7 


01335 


LXA 


2MAND2»7 


00510 





76200 





00304 


RDR 


4 


00511 





46000 





01325 


LDA 


PDR0R6 


00512 





70000 


4 


00000 f»2T CPY 


0.4 


00513 


2 


ooooi 


4 


00512 


TIX 


P2T,4.1 


00514 





76200 





00304 


RDR 


4 


00515 





46000 





01324 


LDA 


BDR0R6 


00516 





70000 


2 


00000 B2W CPY 


0.2 


00517 


2 


ooooi 


2 


00516 


TIX 


B2W.2.1 


00520 





50000 





00556 


CLA 


DECT 


00521 





60100 





01374 


STO 


PRCODE 


00522 





50000 





00575 


CLA 


PRINT 


00523 





07400 


4 


00700 


TSX 


DISTRB.4 


00524 





76000 





00141 


SLN 


1 


00525 





76000 





00142 


SLN 


2 



WRITE TAPE 3 AND 
WRITE TAPE 4 AS 
REVERSE OF TAPE 2 



COMPUTE SHADOW PRICES 



STORE PI ON DRUM 



24 STOP — SET SENSE SWITCH 2 

SWITCH OFF — END STAGE 
CLEAR INDEX REGISTERS 

RESET AND PUSH LOAD DRUM BUTTON 
TO READ NEXT MCR 



STORE SOLUTION AFTER END OF STAGE 



PRINT SHADOW PRICES 



7 a. 



00526 





7*000 





00143 




SIN 


3 


00527 





7*000 





00144 




SLN 


4 


0053© 





49000 





00027 


DONE 


HPR 


23 


00531 





0?000 





00530 




TRA 


DONE 


00532 


-0 


53400 


1 


01344 


CONTD 


LXO 


AR6TRS»1 


00533 


-3 


0*000 


1 


00025 




TXL 


START, 1 


0053* 





7*200 





00223 




RTB 


3 


00535 


2 


00001 


1 


00534 




TIX 


C0NTD^?.1»1 


00536 





o?ooo 





00025 




TRA 


START 


00537 





4?000 





00121 


eof 


HPR 


81 


00540 





0?000 





00537 




TRA 


EOF 


00541 





53400 


1 


01335 


VERIF 


LXA 


2MAND2,1 


00542 





50000 





00601 


CK1 


CLA 


CKTOL 


00543 


-0 


40000 


1 


00000 


CK2 


SBM 


0,1 


00544 





60100 





00554 




STO 


MARK 


00545 


-0 


12000 





00553 




TMI 


TUBIG 


00546 


2 


00002 


1 


00542 




TIX 


CK1,1,2 


00547 





50000 





01374 




CLA 


PRCODE 


00550 


-0 


10000 


4 


OOOOl 




TN7 


1,4 


00551 





7*000 





00161 




SWT 


1 


00552 





0?*00 


4 


OOOOl 




TRA 


1*4 


00553 





0>000 


4 


0000? 


TUBIG 


TRA 


2,4 


00554 





0*000 





00000 


MARK 


P7E 




00555 


♦000000000006 


DEC 6 


DEC 


6 


00556 


♦000000000007 


0EC7 


DEC 


7 


00557 


♦000*00000010 


DEC 8 


DFC 


8 


00560 





0?000 





00532 


BEGIN 


TRA 


CONTD 


00561 


-140*00000000 


FONYH 


OCT 


-140000000000 


00562 





0*001 





00000 


1DECR 


P7E 


0,0*1 


00563 


♦000*00000001 


LDATA 


DEC 


1 


00564 


♦000000000002 


ST SOL 


DEC 


2 


00565 


♦000*00000003 


FORMC 


DEC 


3 


00566 


♦000*00000004 


BTRAN 


DEC 


4 


00567 


♦000*00000006 


LDFLV 


DFC 


6 


00570 


♦000*00000007 


PTRAN 


DEC 


7 


00571 


♦000*00000010 


CHU7R 


DEC 


8 


00572 


♦000*00000011 


ELIMN 


DEC 


9 


00573 


♦000000000012 


YTOOR 


t>EC 


10 


00574 


♦000000000013 


CHECK 


DEC 


11 


00575 


♦000*00000014 


PRINT 


DEC 


12 


00576 


♦000*00000015 


RERYT 


DEC 


13 


00577 





4*>000 





00124 


HOLD 


HPR 


84 


00600 





0?000 


c 


00577 




TRA 


HOLD 


00601 


♦146*00000000 


CKTOL 


OCT 


146**00*f>000 










00211 




ORG 


SI2E 


00211 





50000 





01351 

00000 




CLA 

END 


STAGES 



27 STOP JOB PTNISHFD 

ENTRY FROM PIKUP 
ROUTINE 



121 ERROR MATRIX TAPE AT 
END OF FILE 

TOLERANCE IS 2 TO -26 



NO ERROR 



124 ERPOR TAPF 5 ADVANCED TO 
END OF FILE 
TOLERANCE FOR CHECK 

CHANG* - POR 8192 MEMORY 



73 



ZTABLE 


00747*00747 














00020 




ORG 


MCRORG 








00020 





HED 




00020 





76000 


00000 




CLM 




00021 





62200 


00257 




STD 


54ADR 


00022 





76200 


00302 




RDR 


2 


00023 





53400 


7 00453 




LXA 


S I X » 7 


00024 





70000 


1 00431 


DRCPY1 


CPY 


D+6,1 


00025 


2 


00001 


1 00024 




TIX 


DRCPY1 »1*1 


00026 


0. 


70000 


2 00471 


DRCPY2 


CPY 


D+38*2 


00027 


2 


00001 


2 00026 




TIX 


DRCPY2*2»1 


00030 





07400 


4 00224 




TSX 


SEPRNT.4 


00031 





07400 


4 00213 




TSX 


RITEB#4 


00032 





53400 


4 00453 




LXA 


SIX ,4 


00033 





50000 


4 00273 


MOVER 


CLA 


LINE2+6*4 


00034 





60100 


4 00431 




STO 


0+6*4 


00035 





50000 


4 00301 




CLA 


LINE2+12.4 


00036 





60100 


4 00471 




STO 


0+38*4 


00037 


2 


O^iOOl 


4 00033 




TIX 


MOVER *4*1 


00040 





07400 


4 00224 




TSX 


SEPRNT.4 


00041 


o 


0740 


4 00213 




TSX 


RITEB.4 


00042 





53400 


5 00260 


MAIN 


LXA 


TWELVE* 5 


00043 





76000 


00000 




CLM 




00044 


o 


6n200 


4 00437 


CLEAR 


SLW 


D+12,4 


00045 


2 


OnOOl 


4 000 44 




TIX 


CLEAR*4»1 


00046 





50000 


00246 




CLA 


SAVEME 


00047 





62100 


00171 




ST A 


KEVIN+1 


00050 


-0 


63400 


1 00261 


NEWONE 


SXD 


TRIPLE.l 


00051 





07400 


4 00301 




TSX 


DELTAS*4 


00052 





loooo 


00076 




T7E 


FINALE 


00053 


-0 


5^400 


2 00261 




LXD 


TRIPLE*2 


00054 


-0 


50100 


00255 




ORA 


ABLNK 


00055 


o 


60200 


2 00437 




SLW 


D+12»2 


00056 





53400 


1 01302 




LXA 


TWOADRtl 


00057 


-0 


63400 


1 00457 




SXD 


B80X.1 


00060 





50000 


00006 




CLA 


COMMON+6 


00061 





56000 


00007 




LDQ 


COMMON+7 


00062 





07400 


4 00115 




TSX 


DPFXP,4 


00063 





50000 


00171 




CLA 


KEVIN+1 


00064 





40200 


01301 




SUB 


ONEADR 


00065 





62100 


00171 




STA 


KEVIN+1 


00066 


-0 


53400 


1 00261 




LXD 


TRIPLE, 1 


000 67 


2 


00004 


1 00050 




TIX 


NEWONE »1*4 


00070 





53400 


1 00453 




LXA 


S I X , 1 


00071 





50000 


1 00437 


SHIFTY 


CLA 


D+12*l 


00072 





60100 


1 00471 




STO 


D+38*l 


00073 


2 


00001 


1 000 71 




TIX 


SHIFTY. 1*1 


000 74 





7400 


4 00224 




TSX 


SEPRNT.4 


00075 





02000 


00042 




TRA 


MAIN 


00076 


-0 


53400 


1 00261 


FINALE 


LXD 


TRIPLE, 1 


00077 





50000 


00264 




CLA 


LINER 


00100 





60100 


1 00437 




STO 


D+12»l 


ooioi 


7 


00001 


1 00100 




TIX 


FINALE+2*! » 


00102 





53400 


1 00453 




LXA 


S I X * 1 



DELTA J PRINT MCR 



H 



00103 

00104 

00105 

00106 

00107 

00110 

00111 

00112 

00113 

00114 

00115 

00116 

0011? 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00170 

00171 





•0 

n 





SnOOO 
60100 
2 00001 
7400 
76000 
76000 
76000 
76000 
4?000 
02000 
•0 63400 
7ft50'1 
60000 
7*000 
56000 
22000 
-0 60000 
50000 
40000 
60100 
53400 
5^400 
07400 
2 00005 
-0 63400 
50000 
-0 53400 
02000 
50000 
10000 
53400 
60200 
53400 
07400 
50000 
62200 
-0 53400 
* 50000 
12000 
50000 
02000 
-0 63400 
-0 53400 
56000 
50000 
76500 
40000 
76500 
-0 60000 
10000 
5^400 
02000 
50000 
76700 
-0 60200 
















1 
1 

1 

4 







4 



o 







2 
1 
4 
4 
4 

4 




1 


2 
4 



4 




4 
4 


o 






o 

1 
1 


4 





00437 

00471 

00103 

00224 

00141 

00142 

00143 

00144 

77777 

00113 

00004 

00012 

00002 

00003 

00250 

00247 

00000 

00000 

00251 

00000 

00460 

01301 

00154 

00133 

01377 

00253 

00457 

00170 

00002 

00142 

01300 

00000 

00460 

00154 

00004 

01377 

00457 

00002 

00167 

00252 

00170 

01377 

00457 

01300 

00000 

00002 

00000 

00040 

00000 

00166 

01300 

00170 

00254 

00040 

00000 



WHOA 
DPFXP 



AGAIN CLA 
STO 
TIX 
TSV 
SUN 
SUN 
SUN 
SUN 
HPR 
TRA 
SXD 
URS 
STO 
SSP 
LDQ 
OVH 
STO 
CUA 
ADO 
STO 
UXA 
UXA 
TSX 
TIX 
SXD 
CUA 
UXD 
TRA 
CUA 
TIE 
UXA 
7ER0F SUW 
UXA 
TSX 
CUA 
STD 
UXD 
CUA 
TRU 
CUA 
TRA 
SXD 
UXD 
UDO 
CUA 
URS 
ADD 
URS 
STO 
T2F 

UXA 
TRA 
CUA 
KEVIN AUS 
ORS 



CONVE 
RSI ON 



D+12»1 

D+38»l 

AGAIN«1«1 

C EPRNT»4 

1 

2 

3 

4 

32767 

WHOA 

C0MM0N+4|4 

10 

COMMON+2 

10T08+1 

10T08 

COMMON 

COMMON 

5T0M9 

COMMON 

EIGHT ,2 

ONFADRtl 

CONVE »4 

DPFXP+14»4»5 

CB0XTW,4 

POINT 

BB0X,4 

KEVIN 

COMMON+2 

ZEROF 
NOUGHT il 

COMMON 

EIGHT. 2 

CONVE t 4 

C0MM0N+4 

C30XTW 

BB0X.4 

COMMON+2 

KEVIN-1 

MINUS 

KEVIN 

CB0XTW»4 

BR0X»4 

NOUGHT 

COMMON 

2 

COMMON 

32 

COMMON 

KEVIN-2 

NOUGHT »1 
KEVIN, 1 
BUANK 
32»4 



ASSUMES A 



25.45 
IN 

PO 



NUMBER 
AC. MQ 
CUEAR 



WITH UIKE SIGNS 



SET EXIT FROM 



DPFXP AND CONVE 



PRESENT XA AND XB AND 
PUT WORD TO BE 

CONVERTED IN COMMON 

PROGRAMMED 

MULTIPLICATION 
BY 10 LEAVING 
DECIMAL DIGIT IN 
THE ACCUMULATOR 

TEST ZERO CHARACTER 

SET SWITCH TO STORE 
ZERO FROM NOW ON 

STORE BUANK CHARACTER 

POSITION CHARACTER 

OR IT INTO PRINT UINE 



7j" 



0017? 

00173 

00174 

00175 

00176 

00177 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00250 

00251 

00252 
00253 
00254 
00255 
00256 
00257 
00260 



00006 4 00173 

00040 4 00200 

50000 00171 

40200 01301 

62100 00171 

5^400 4 00160 

00001 2 00156 

ft-^400 4 00457 

5^400 4 01377 

0?000 4 00001 

76600 00206 WTPCD 

53400 3 00453 

70000 1 00431 

00001 1 00206 

7O000 2 00471 

00001 2 00210 

0?000 4 00001 

6^400 4 00260 RITEB 

50000 00264 

53400 1 00453 

60200 1 00431 

60200 1 00471 

00001 1 00216 

07400 4 00224 

53400 4 00260 

0>000 4 00001 

63400 4 00246 SEPRNT 

5^400 4 00257 

00001 4 002 3 5 

50000 01301 

56000 00423 

77300 00006 

76300 00036 

60200 00423 

.5-3400 4 00257 

63400 4 00257 

76000 00163 

02000 00243 

07400 4 00204 

76000 00164 

02000 00244 

07400 4 00334 

53400 4 00246 

0?000 4 00001 

OfiOOO 00424 SAVEME 
+000575360400 10T08 
+000276570200 
+000^00000256 5T0M9 
+000000O00040 MINUS 
+000000000033 POINT 
+000000000060 BLANK 
-20OOOO000000 A8LNK 
-202DOOOOOOOO RRLNK 
00^00 00066 54ADR 
00000 00014 TV/FLVF 



1 

-3 





2 
•0 



o 





2 



2 



-0 

-0 







2 



-0 



-0 

-0 

2 





-0 

-0 



o 

-0 



o 






-0 





TXJ KEV!N+3»4»6 

TXL KFVIN+8»4»32 

CLA KEVIM+1 

SUB ONEADR 

STA KEVIN+1 

LXA C0NVE+4i4 

TIX C0NVE+2i2tl 

SXD BB0X»4 

LXP CB0XTW»4 

TRA 1»4 

WTD 6 

LXA SIX»3 

CPY D+6»l 

TIX VTBCD+2»1.1 

CPY D+38»2 

TIX WT*CD+4»2»1 

TRA 1»4 

SXD TWELVFt4 

CAL LINER 

LXA SIXil 

5LW D+6»l 

SLW D+38»l 

TIX RITEB+3»ltl 

TSX SEPRNT ,4 

LXD TWELVE* 4 

TRA 1»4 

SXD SAVEME»4 

LXD 54ADR»4 

TIX SEPRNT+9.4»1 

CLA ONEADR 

LDQ D 

RQL 6 

LGL 30 

SLW D 

LXA 54ADR»4 

SXD 54ADR»4 

SWT 3 

TRA SAVEME-3 

TSX WT8CD»4 

SWT 4 

TRA SAVEME-2 

TSX 9CD»4 

LXD SAVEME»4 

TRA Ii4 

P7E D+l 

DEC 100000000 

DEC 50000000 

OCT 256 

OCT 40 

OCT 33 

OCT 60 

OCT -200000000000 

OCT -2^2000000000 

P7E 54 

P7E 12 



KEEP 



TEST 
SAVE 



THE 
PRINT 
LINE 
MOVING 
ALONG 

FOR END OF WORD 
LINE POSITION 
BAIL OUT 



STORE RLANK 



PREPARE TO 

JUMP 
WRITE 

CYCLE 

PRINTING 

ON TAPE 

SIX 

AND 

RETURN 
SAVE RETURN ADDRESS 

CHARACTERS 
INPRINT 
LINE 
THEN 

PREPARE TO BAIL OUT 
JUMP 



PUT A ONE 

IN FIR5T 
WORD TO 
SKIP TO 
NEW PAGE 



WTITE REMOTE PRINTER 



WRITE DIRECT PRINTER 



7<, 



00261 

00262 

00263 

00264 

00265 

00266 

00267 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00310 

00311 

00312 

00313 

00314 

00315 

00^16 

00317 

00320 

00321 

0032? 

0^323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

n0333 

00334 

00335 

00336 

00337 

00340 

00341 

00342 

00343 

00344 

00345 

00346 

00347 



00000 00000 

00000 00003 

OHOOO 00004 

606060606060 

606060606041 

606060606060 

606060242543 

632160416060 

606060606041 

606^60606060 

606060242543 

632160416060 

606060606041 

606060606060 

606060242543 

632160416060 

76000 00140 



TRIPLE P?E 
FORMC PIE 3 
RTRAN PI* 4 
LINER BCD 1 
LINE2 BCD 6 



J 



DELTA J 



-0 




r\ 

o 
o 
o 







o 
? 



r\ 










-0 


-0 



-0 





o 



2 



63400 
76100 
50000 
60100 
76000 
02000 
76200 
5O000 
40000 
62100 
46000 
53400 
7O000 

ooooi 

76000 
07400 
0?000 
5O000 
07400 
50000 
07400 
02000 
02000 
07400 
53400 
02O0O 
63400 
76600 
50000 
12000 
76000 
36100 
60200 
53400 
53400 
76000 
6^200 
00001 



4 














1 
1 
1 

4 



4 

4 


4 
4 
4 
4 







1 

2 



3 
2 



01372 

00000 

00330 

00303 

00165 

00323 

00304 

01341 

01335 

00316 

01325 

01335 

noooo 

00316 

00 144 

00512 

00332 

00 262 

00700 

00263 

00700 

00320 

00331 

00512 

01372 

00001 

01377 

00361 

00423 

00343 

00361 

00462 

00423 

00357 

00362 

00000 

00552 

00346 



DELTAS 



RECLP 



PVECT 



^KIP 

MEXTD 

EXIT1 

BCD 



BCD 6 DELTA J 



DELTA J 



SLF 
SXD 
NOP 
CLA 
STO 
SWT 
TRA 
PDR 
CLA 
ADD 
STA 
LDA 
LXA 
CPY 
TIX 
SLN 
TSX 
TRA 
CLA 
TSX 
CLA 
TSX 
TRA 
TRA 
TSX 
LXD 
TRA 
SXD 
WPR 

CLA 
TMI 
SPR 
ACL 
SLW 
LXA 
LXA 
CLM 
SLW 
TIX 



HIMAXV,4 

SKIP 

DELTAS+2 

5 

PVECT 

4 

WORIGN 

2MAND2 

RECLP-1 

PDRORG 

2MAND2»1 

0,1 

RECLP-1, 1.1 

4 

DFJAY,4 

EXIT1 

FORMC 

DISTRB,4 

BTRAN 

DISTRB»4 

RECLP+1 

NEXTD 

DEJAY.4 

HIMAXV,4 

1»4 

CB0XTW,4 

D 

BCD+7 

1 

3LNKR 

D 

BCD+19,1 

BCD+22,2 

D+87t3 
REPET-5,2,1 



REPLACE WITH TRANSFER AFTER ENTRY 



COMPUTE PRICING VECTOR 
RECALL PRICING VECTOR 
FROM DRUM 4 
TO W STORAGE 



USED AFTER DEJAY IN MEMORY 



TEST FOR ONE 
AND 

SKIP TO 

NEWPAGE 
CHOOSE LEFT CARD IMAGE 
CLEAR 

D+6 

THRU 

D+22 



71 



00350 -0 50000 0045? 

00351 6o?00 00456 

00352 53^00 ? 004^3 

00353 56000 3 00531 

00354 -0 63400 2 00457 

00355 76000 00000 

00356 -0 76300 

00357 73400 
003 60 7600 
00361 -0 76300 





2 

n 
/•I 



00362 
00 363 -0 
00 3 64 -0 

00365 -0 

00366 
no 367 



7^400 4 



00002 
0010 
00 000 
0000 4 
00021 



50000 00456 
6O?00 3 00551 
60200 5 00545 
77100 0000]. 
6O20O 00456 



003 70 ~0 3? 000 004 5 5 






_A 

-0 



003 71 -0 
0037? *~0 

00373 2 

00374 

00375 — ^ 

00 3 76 - n 
00 3 77 -0 
400 2 
00401 -3 
00402 
00 403 
on&OA 
0040 5 
on 40 6 
00407 
0041.0 
00411 
00 M 2 
00413 
00414 
0415 
0416 

^'>I7 
O ^ 4 ? o 

00421 

3 422 



" i. s 2 
"i A 4 5 3 
.1 A R 4 

o 4 5 5 
"> 4 5 6 
0^457 
S460 



o r 



>4fti 
1 4 ft ? 



o ° 5 1 2 



1 00355 

53400 2 004 5 7 

00001 2 00353 

53400 2 01302 

5 o "5 o 5 3 3 

60200 1 00535 

6O20O 3 00 54 3 

o o o 1 ? 00375 

50000 1 00 545 

7 <S- 000 6 

3 7000 1 00 546 

50000 '1 00 545 

3->0O0 1 nn^, 1 

.0 50100 1 OOK/ift 

6020 1 00545 

-0 50000 1 00547 

ft a 9 00 1 00 546 

-0 50OOO 1 00550 

60 2 00 1 0054 7 

2 0O040 1 00344 

5-! 40 1 00 2 60 

7O0 00 1 00 4 50 

70000 l 00510 

2 Ooooi ] 3416 
-o 50 400 4 01377 

2 000 4 0000} 
00423 
„ n ■">. o " o o 

, r\ ,-> a - O A O O ft 

oo A 12 o O o 4 2 A. 

+373737373737 

3 0OO00 0^000 
o ^ nL o, r\ h n r\ C) '^ °- 

0OO2 4 ' 00010 
+ 0.'- qoooo" ftOftO 

1 •7AA^.^f> A f*n o o 

00463 
-0 fto.400 4 013 76 



CAL D+23 
SLW 0+2 7 
LXA D+24t? 
REPET LDQ D+70»3 
SXD BBOX *2 
CLM 
LGL 2 
PAX 64.2 
CLM 
LGL 
PAX 



ARCD 



COPY 



riy 



4 
17»4 

CAL D+2 7 
OR5 D+86»3 
ORS D+82.5 
ARS 1 
3LW D+2 7 
ANA D+2 6 
TN7 REPFT+2 
LXD BB0X,2 
TIX REPET, 2»! 
LXA TV0A0Ri2 
CAL 0+72»3 
OP? D+74»l 
OR? D+R0»3 
T IX ABCD+1 »2 »1 
CAL D+82»l 
COM 

AM C 0+R3»l 
C.AL. 0+8? ♦! 
ANA 0+86,1 
OR A 0+8 3 »] 
SLW 0+8? il 
CAL D+84,1 

OLV* n + e°-»i 

CAL D+8 5,1 
SLW 0+84 »1 
TIX RCD+3,1,32 
L y A TWELVE ,1 
CPY D+21il 
(■pv D+5-a*] 
TIX COPY,] »1 
L*D CB0XT V! »4 
TR4 1*4 

2 3 

_ (-) o O n o O o o o o o 

A pi o o o O O O O O ft 



BOS 

or" 

OC T 



OCT 373737373737 



MA5K 



FIGHT 
o o 1 K' kr 

o L M K R 



oc T 

OC T 
P. 0=. 



ri , 'J » <: ■> 

o o o o o o ft o a o 

— 1 7 '""* O O O O O a o a a 



REFRESH 

COLUMN INDICATOR 

BEGINNING 

OF PRELIMINARY 

CARD IMAGE 

FORMATION 
PLACE ZONE PART 

IN INDEX B 
CLEAR ACCUMULATOR 
PLACE NUMERICAL PART 

ININDFX C 
FORM PRESENT 

COLUMN OF 

CARD IMAGE 
MOVE TO 

NEXT COLUMN 
CLOSE LOOP IF WORD 

IS NOT FINISHED 
MOVE TO NEXT WORD AND 

TEST END OF HALF IMAGE 

OR 

8-4 WORD 
AND 8-3 WORD 
INTO 

8,4, AND 3 WORDS 
OBTAIN 
THE 

S ROW 
OP 
THE 
CARD 
I MAGE 
03 T A IN 
X 

AND Y 
ROWS 
GO BACK FOR BIGHT HALF IMAOi 
COPY 

LOOP 
SOB 

PRINTING 
pprp4'?r JO ^AIL OUT 

JUMP 
SPACE FOR LEFT IMAGE 
t OC. OF M I BUS ZERO 
LOG OR 6 
LOG OF lo 
OOP COL INDICATOR. 



LOG OF 8 

TWO "LANKS ONLY 

SPACE FOP R! r WT I "AG' 



DEJAY r - vr> l 0Pp\'0N,4 



7^ 



00513 


-0 


76000 





00144 


SLT 


4 


00514 





0?000 





00555 


TRA 


RELOAD 


00515 





02000 





00520 


TPA 


REDTP 


00516 





76400 





00205 


8ST 


5 


00517 





42000 


A 


00725 


HPR 


469 


005?0 





76200 





00225 


REDTP RTF 3 


5 


00521 


o 


51000 





01342 


CLA 


T0P1GM 


00522 





62100 





00524 


«TA 


REDTP+4 


00523 





4O000 





01301 


ADD 


ONEADR 


00524 





7n000 





000*0 


CPY 




00525 





07000 





00522 


TRA 


REDTP+2 


00526 





0?000 





00557 


TRA 


POSTP 


00527 





77100 





00355 


ARS 


237 


00530 





77100 





00355 


ARS 


237 


00531 


-0 


76000 





00012 


RTT 




00532 





02000 





00516 


TRA 


REDTP-2 


00533 





50000 





01342 


CLA 


T0RIGN 


00534 





76000 





00006 


COM 




00535 





73400 


1 


00000 


PAX 


0,1 


00536 


o 


50000 


1 


77777 


J CLA 


32767*1 


00537 





loooo 





00520 


T7E 


REDTP 


00540 





1?000 





00542 


TPL 


NEXTJ+1 


00541 


2 


00002 


1 


00536 


NEXTJ TIX 


J, 1*2 


00542 





60100 





01361 


STO 


INDEXS 


00543 





50000 


1 


ooooo 


CLA 


0*1 


00544 





60100 





01365 


STO 


BORIGN 


00545 





76000 





00006 


COM 




00546 





73400 


2 


OOOOO 


PAX 


0,2 


00547 





50000 


0' 


01341 


CLA 


WCRIGN 


00550 





07400 


4 


00562 


TSX 


C!NPR»4 


00551 


•0 


63400 


1 


01373 


SXD 


L0MAXV#1 


00552 





5*000 


o 


01361 


CLA 


INDEXS 


00553 


-0 


53400 


4 


01376 


EXIT2 LXD 


C80X0N»4 


00554 





02000 


4 


00001 


TRA 


1.4 


00555 


-0 


53400 


1 


01373 


RELOAD LXD 


LOMAXV.l 


00556 


2 


00002 


1 


00536 


TIX 


J*l*2 


00557 





77200 





00205 


POSTP REW 


5 


00560 





50000 





01300 


CLA 


NOUGHT 


00561 





02000 





00553 


TRA 


EXIT2 


00562 


-0 


63400 


2 


00003 


CINPR SXD 


COMMON+3»2 


00563 


•0 


63400 


4 


01377 


SXD 


CB0XTW,4 


00564 





40000 





01335 


ADD 


2MAND2 


00565 





62100 


o 


00575 


ST A 


ELBET 


00566 


o 


40000 





01301 


ADD 


ONEADR 


00567 





62100 





00576 


STA 


ELBET+1 


00570 





50000 





01300 


CLA 


NOUGHT 


00571 





60100 





00006 


STO 


C0MM0N+6 


00572 





61100 





00007 


STO 


COMMON* 7 


00573 





50000 


2 


77777 


I CLA 


32767,2 


00574 


-0 


73400 


4 


OOOOO 


PDX 


0,4 


00575 





50000 


4 


OOOOO 


ELBET CLA 


0,4 


00576 





56000 


4 


OOOOO 


LDQ 


0,4 


00577 





60100 





00010 


STO 


COMMON+8 


00600 


~0 


60000 





00011 


STQ 


COMMON+9 


00601 





40000 





onou 


ADD 


COMMON+9 



CODE AND MATRIX IN MEMORY 



ERROR STOP 725 



END OE RECORD 

TEST EOR PARTITIONS 



LOC A-J 



RELOAD INDEX REGISTERS 



V 



00602 





10000 


o 


00631 


TZE 


NEXT 1-2 


00603 





2>*>000 


2 


00000 


MPY 


0,2 


00604 





76500 





00026 


LRS 


22 


00605 





6O100 





00011 


STO 


COMMON* 9 


00606 


-0 


60000 





00012 


STO 


COMMON-MO 


00607 


o 


56000 





00010 


LDQ 


COMMON+8 


00610 


o 


2O000 


2 


00000 


MPY 


0,2 


00611 





14000 





00612 


TOV 


CLROV 


00612 





76300 





00015 


CLROV LLS 


13 


00613 





40000 





00011 


ADD 


COMMON+9 


00614 





6*100 





00010 


STO 


COMMON+8 


00615 





14000 





00655 


TOV 


OVFLO 


00616 





50000 





00012 


CLA 


COMMON* 10 


00617 


-0 


60000 





00012 


STO 


COMMON+10 


00620 





40000 





00012 


ADD 


COMMON+10 


00621 





40000 





00007 


ADD 


COMMON+7 


00622 





76500 





00043 


LRS 


35 


00623 





14000 





00624 


TOV 


NEXTI-7 


00624 





40000 





00010 


ADD 


COMMON+8 


00625 





40000 





00006 


ADD 


COMMON+6 


00626 


o 


14000 


o 


006 5 5 


TOV 


OV^LO 


00627 





6M00 





00006 


STO 


COMMON+6 


00630 


-0 


60000 





00007 


STO 


COMMON+7 


00631 





50000 


2 


77777 


CLA 


32767»2 


00632 


-0 


12000 





00634 


TMI 


NEXTI+1 


00633 


2 


00002 


2 


00573 


NEXTI TIX 


I»2»2 


00634 





5^000 





00006 


CLA 


COMMON+6 


00635 





10000 





00646 


TZE 


OVFLO-7 


00636 





76000 


o 


00000 


CL^ 




00637 


-0 


50100 





01301 


OR A 


ONEADR 


00640 





60100 





00010 


STO 


COMMON+8 


00641 





76700 





00043 


ALS 


35 


00 642 


o 


4^000 


r\ 


00007 


ADD 


COMMON+7 


00643 





76500 





00043 


LRS 


35 


00644 





40200 





00010 


SUB 


COMMON+8 


00645 





40000 





00006 


ADD 


COMMON+6 


00646 





76300 





00000 


LLS 





00647 





60100 





00006 


STO 


COMMON+6 


00650 


-0 


60000 





00007 


STQ 


COMMON+7 


00651 


-0 


53400 


2 


00003 


LXD 


COMMON+3»2 


00652 


-0 


53400 


4 


01377 


LXD 


CB0XTWi4 


00653 





14000 





00654 


TOV 


OVFLO-1 


00654 





0?000 


4 


00001 


TRA 


1»4 


00655 





4?000 





00250 


OVFLO HPR 


168 


00656 





0?000 





00655 
00020 


TRA 
END 


OVFLO 
MCRORG 



SKIP ZERO MULTIPLICATION 

LO PRODUCT 
HI PRODUCT 



SUM HI PARTS 



SUM LO PARTS 



NEW SUM 



ERROR STOP 250 



LINEAR PROGRAMMING DATA ASSEMBLY CODE. 





00000 


COMMON BSS 


16 




00020 


ORG 


16 




00020 


MCRORG BSS 


376 




01300 


ORG 


704 


01300 


+000000000000 


NOUGHT DEC 




01301 


+000000000001 


ONEADR DEC 


1 


01302 


+000000000002 


TWOADR DEC 


2 


01303 


+000000000003 


THREEA DEC 


3 


01304 


+000000000005 


PIVEAD DEC 


5 


01305 


+000^00000200 


128ADR DEC 


128 


01306 


+000000000205 


133ADR DEC 


133 


01307 


+000000000215 


141ADR DEC 


141 


01310 


+200000000000 


TRUHAF OCT 


200000000000 


01311 


+377777777777 


INFINY OCT 


377777777777 


01312 


+033000000000 


2 7CHAR OCT 


033000000000 


01313 


+066000000000 


54CHAR OCT 


066000000000 


0131A 


+146000000000 


EL ZERO OCT 


146000000000 


01315 


+201400000000 


FLUNTY OCT 


201400000000 


01316 


+377000000000 


MA5KCH OCT 


377000000000 


01317 


-000777777777 


MASKFR OCT 


-000777777777 


01320 


+000000077777 


MASKAD OCT 


000000077777 


01321 


-377777700000 


MASKNA OCT 


-377777700000 


01322 


+0 77777000000 


MASKDE OCT 


077777000000 


01323 


+000000002000 


DPFXUN DEC 


1024 


01324 


♦000000003000 


BDRORG DEC 


1536 


01325 


+00OO00002000 


PDRORG DEC 


1024 


01326 


+000000001000 


EDRORG DEC 


512 


01327 


+000000000750 


KDRORG DEC 


488 


01330 


+000000001050 


HDRORG DEC 


552 


01331 


+000^00001450 


VDRORG DEC 


808 


01332 


+031400000000 


BORROW OCT 


031400000000 


01333 


+000000012000 


SPAREF DEC 


5120 


01334 


+000000000000 


1MAND1 DEC 




01335 


+000000000000 


2MAND2 DEC 




01336 


+000000000000 


2MAN2D DEC 




01337 


00000 01400 


H0RI6N PZE 


768 


01340 


+0O000O0OO00O 


VORIGN DEC 




01341 


+000000000000 


WORIGN DEC 




01342 


00000 04000 


TORIGN PZE 


2048 


01343 


+000000000000 


FAZTYP DEC 




01344 


+000000000000 


ARBTRS DEC 




01345 


+000000000000 


FAZNUM DEC 




01346 


+000000000000 


PRICEX DEC 




01347 


+000000000000 


FEASYX DEC 




01350 


+000000000000 


ITERNO DEC 




01351 


+000000000000 


STAGES DEC 




01352 


+000000000000 


DR3LIM DEC 




01353 


+000000003772 


DR3END DEC 


2042 


01354 


00001 00000 


TPALTR PZE 


OiOtl 


01355 


+000000002000 


SCALHI DEC 


1024 


01356 


+000000000000 


SCALLO DEC 




01357 


02000 00020 


MCRTRA TRA 


MCRORG 


01360 


+000000000000 


INDEXR DEC 





FIXED CONSTANTS-STANDARD THRUOUT 



ORIGIN ON DRUM 4 OF 



ORIGIN ON DRUM 1 OF 



RT-HAND SIDE 
PRICING VECTOR 
PLP CHANGE VECT 
CONSTANTS 
H-REGION 
V-REGION 



PROBLEM CONSTANTS-VALUES PROVIDED 
BY DATA ASSEMBLY 



V 



01361 +000000000000 

01362 +000000000000 

01363 +000000000000 

01364 +000000000000 

01365 +000000000000 

01366 +000000000000 

01367 +000000000000 

01370 +000000000000 

01371 +000000000000 

01372 +000000000000 

01373 +000000000000 

01374 +000000000000 

01375 +000000000000 

01376 +000000000000 

01377 +000000000000 

00020 

00020 00000 07777 

00021 236451632131 

00022 254626606060 

00023 254651606060 

00024 00000 00000 

00025 -0 00000 00000 

00026 00000 03770 

00027 00000 00000 

00030 00000 01337 

00031 00000 00000 

00032 00014 00075 

00033 00042 01334 

00034 454660442163 

00035 442163513167 

00036 452567636022 

00037 263151626360 

00040 ooooo 00000 

00041 o ooooo ooooo 

00042 00000 00004 

00043 OOOOO 00006 

00044 OOOOO 00007 

00045 OOOOO 00012 

00046 OOOOO 00013 

00047 OOOOO 000/4 

00050 +000000000017 

00051 +000000000060 

00052 +000000000040 

00053 +000001720440 

00054 +000003641100 

00055 +000023045500 

00056 +000001720440 

00057 +000000141520 

00060 +000000011610 

00061 +000000000764 

00062 +000000000062 

00063 +000000000005 

00064 +000000000000 

00065 +000046113200 

00066 +000003641100 



INDEXS 
SPARP1 
SPARP2 
AORIGN 
RORIGN 
HISCAR 
LOSCAR 
HIBEST 
LOBEST 
HIMAXV 
LOMAXV 
PRCOOE 
STATUS 
CBOXON 
CBOXTW 

ENOSTG 

CURT 

EOF 

EOR 
TRAPRC 

MIZER 
HALFST 
NEGSUM 
BHEONG 
SUMROW 
HEDADR 
PARADR 
NOMATR 
MATRIX 

NEXT8 
FIRSTB 
SENSES 

POSIT 
FOURAO 
SrXAOR 

SEVEN 
TENAOR 
ELEVEN 
TWELVE 

0CT17 
BLANKK 

STEST 

ROUNDR 

10T06 



FIXED LOCATIONS-ZERO INITIALLY 



DEC 

DEC 

DEC 

DFC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DFC 

ORG MCRORG 

HTR 4095 

BCD 1CURTAI 

BCD 1E0F 

BCD 1E0R 

MZE 

PZF 2040 

HTR HORIGN 

PZE R0W»0»12 
PZE lMANDltO»34 
BCD 1N0 MAT 
BCD 1MATRIX 
BCD 1NEXT 3 
BCD 1FIRST 



HTR 4 

HTR 6 

HTR 7 

HTR 10 

HTR 11 

HTR 12 

DEC 15 

OCT 60 

DEC 32 

DEC 500000 

DEC 1000000 

DEC 5000000 ♦ 500000 « 50000 » 5000 ♦ 500 » 50 » 5 



RFACTR DFC »10000000 »1000000 *100000»10000 »1000»100.10 



fix 



00067 - 


►000000303240 






00070 • 


►000000023420 






00071 ■ 


►000000001750 






00072 


►000000000144 






00073 


►000000000012 






00074 


►oooooooooooi 


POWTEN DEC 


1 






00075 


ROW BSS 


14 


00113 





50000 00075 


START3 CLA 


ROW 


00114 





40200 00034 


SUB 


NOMATR 


00115 





10000 00464 


T2E 


KICKRC+3 


00116 





7ftOOO 00000 


CLM 




00117 





60200 00006 


SLW 


COMMON+6 


00120 





56000 00040 


LDQ 


SENSES 


00121 


-0 


77300 00041 


RQL 


33 


00122 





16200 00124 


TQP 


SETSUM 


00123 





0?000 00134 


TRA 


SETORG 


00124 





50000 00031 


SETSUM CLA 


SUMROW 


00125 





76700 00001 


ALS 


1 


00126 





60100 00031 


STO 


SUMROW 


00127 





40200 01335 


SUB 


2MAND2 


00130 





76700 00022 


ALS 


18 


00131 





76000 00002 


CHS 




00132 





40000 00031 


ADD 


SUMROW 


00133 





60100 00031 


STO 


SUMROW 


00134 





07400 4 00602 


SETORG TSX 


SELECT, 4 


00135 





76000 00143 


SLN 


3 


00136 





50000 01342 


CLA 


TORIGN 


00137 





62100 00272 


STA 


SETAL 


00140 





76000 00000 


CLM 




00141 





60200 00027 


SLW 


NEGSUM 


00142 





50000 00020 


CLA 


ENDSTG 


00143 





62100 00170 


STA 


RESETJ 


00144 





07400 4 00606 


TROWT TSX 


READIN»4 


00145 





07400 4 00756 


TSX 


SETLIN»4 


00146 





50000 00075 


CLA 


ROW 


00147 





40200 00021 


SUB 


CURT 


00150 





10000 00440 


T2E 


MI NUMB 


00151 





50000 00075 


CLA 


ROW 


00152 





40200 00023 


SUB 


EOR 


00153 





10000 00461 


TZE 


KICKRC 


00154 





50000 00075 


CLA 


ROW 


00155 





40200 00022 


SUB 


EOF 


00156 


-0 


10000 00161 


TNZ 


RESET J-7 


00157 





76000 00144 


SLN 


4 


00160 





0?000 00167 


TRA 


RESETJ-1 


00161 





76000 00142 


SLN 


2 


00162 





53400 1 00043 


LXA 


SIXADRil 


00163 





07400 4 00763 


TSX 


CONVERT 


00164 





34000 00006 


CAS 


C0MM0N+6 


00165 





02000 00167 


TRA 


RESET J-l 


00166 





02000 00227 


TRA 


GET I 


00167 





60100 00006 


STO 


COMMON+6 


00170 





60100 07777 


RE5ETJ STO 


4095 


00171 





50000 00170 


CLA 


RESETJ 


00172 





40200 01301 


SUB 


ONEADR 



Vh 



00173 





62100 





00177 


STA 


RESETJ+7 


00174 





07400 


4 


00323 


TSX 


SUMMER »4 


00175 





50000 





00272 


CLA 


SETAL 


00176 


-0 


32000 





01320 


ANA 


MASKAD 


00177 





60100 





07776 


STO 


4094 


00200 





40200 





01301 


SUB 


ONEADR 


00201 





62100 





00203 


STA 


NE6ATF 


00202 


-0 


50000 





00025 


CAL 


MIZER 


00203 


-0 


60200 





00000 


NEGATE ORS 




00204 





50000 





01302 


CLA 


TWOADR 


00205 





40000 





00024 


ADD 


TRAPRC 


00206 





60100 





00024 


STO 


TRAPRC 


00207 





40000 





01335 


ADD 


2MAND2 


00210 





40200 





00026 


SUB 


HALFST 


00211 


-0 


76000 





00144 


SLT 


4 


00212 


-0 


12000 





00224 


TMI 


GETI-3 


00213 





07400 


4 


00355 


TSX 


RITTAPt4 


00214 





50000 





00006 


CLA 


C0MM0N+6 


00215 





10000 





00463 


TZE 


KICKRC+2 


00216 





56000 





00076 


LDQ 


ROW+1 


00217 





50000 





00006 


CLA 


C0MM0N+6 


00220 





60100 





07777 


STO 


4095 


00221 





50000 





01342 


CLA 


TORIGN 


00222 





60100 





07776 


STO 


4094 


00223 





02000 





00204 


TRA 


NEGATE+1 


00224 





50000 





00170 


CLA 


RESETJ 


00225 





40200 





01302 


SUB 


TWOADR 


00226 





62100 





00170 


STA 


RESETJ 


00227 





53400 


1 


01303 


GETI LXA 


THREEAtl 


00230 





50000 





00272 


CLA 


SETAL 


00231 





40000 





01301 


ADD 


ONEADR 


00232 





62100 





00257 


STA 


SETIN 


00233 





07400 


4 


00763 


TSX 


C0NVER.4 


00234 


-0 


12000 





00237 


TLIM TMI 


TLIM+3 


00235 





76700 





00001 


ALS 


1 


00236 





02000 





00250 


TRA 


SETIN-7 


00237 





40000 





00246 


ADO 


55ADR 


00240 


-0 


10000 





00253 


TN? 


SETIN-4 


00241 





50000 





01375 


CLA 


STATUS 


00242 





40200 





01301 


SUB 


ONEADR 


00243 





60100 





01375 


STO 


STATUS 


00244 





50000 





00247 


CLA 


LIMX 


00245 





02000 





00257 


TRA 


SETIN 


00246 





ooooo 





00067 


55ADR PZE 


55 


00247 


2 


00000 





00001 


LI MX PTW 


1 


00250 





60100 





00004 


STO 


COMMON* 4 


00251 





40200 





01335 


SUB 


2MAND2 


00252 


-0 


12000 





00254 


TMI 


SETIN-3 


00253 





42000 





07700 


HPR 


4032 


00254 





76700 





00022 


ALS 


18 


00255 





76000 





00002 


CHS 




00256 





4^000 





00004 


ADD 


C0MM0N+4 


00257 





60100 





00000 


SET IN STO 




00260 





60100 





00004 


STO 


C0MM0N+4 


00261 





07400 


4 


00602 


TSX 


SELECT»4 



H 



00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 

0027* 
00275 
00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00340 

00341 

00342 

00343 

00344 

00345 

00346 • 

00347 

00350 



-0 5000O 
76700 

-0 76000 
02000 
07400 
0?000 
07400 
76300 
60100 
14000 
60100 
50000 
40200 

i?ooo 

50000 
77100 
40000 
62100 
50000 
40200 
1?000 
50200 
40000 
60100 

-0 14000 
4?000 
50000 
40000 
62100 
50000 
40000 
60100 
02000 
50000 
77100 
76000 
0?000 
0?000 

-0 76000 
02000 
0?000 
50000 
■0 10000 
50000 
62100 
40000 
62100 
40000 
62100 
50000 
60100 
5O000 
60100 
76000 
60200 



00040 
00001 
00001 
002 70 
01164 
00271 
01107 
00026 
00000 
00274 
00000 
00004 
00031 
00314 
00004 
00001 
01337 
00304 
00000 
01301 
00314 
00000 
00027 
00027 
00314 
06666 
00272 
01302 
00272 
01302 
00024 
00024 
00144 
00040 
00002 
00001 
00330 
00001 
00143 
00333 
00001 
00027 
00001 
00272 
00344 
01301 
00346 
01301 
00272 
000?7 
00000 
00031 
00000 
00000 
00027 



CAL 
ALS 
P8T 
TRA 
TSX 
TRA 
TSX 
LLS 

SETAL STO 
TOV 
STO 
CLA 
SUB 
TPL 
CLA 
ARS 
ADO 
STA 

CHEKH CLA 
SUB 
TPL 
CLS 
ADO 
STO 
TNO 
HPR 
CLA 
ADO 
STA 
CLA 
ADD 
STO 
TRA 
CLA 
ARS 
LBT 
TRA 
TRA 
SLT 
TRA 
TRA 
CLA 
TZE 
CLA 
STA 
ADD 
STA 
ADD 
STA 
CLA 
STO 
CLA 
STO 
CLM 
SLW 



SUMMER 



MOVER 



SENSES 
1 

SETAL-2 

SPECILt4 

SETAL-1 

DT0BCV.4 

22 

SETAL+2 

COMMON 

COMMON+4 

SUMROW 

SETAL+18 

COMMON+4 

1 

H0R1GN 

CHEKH 

ONEADR 

SETAL+18 

COMMON 

NEGSUM 

NEGSUM 

SETAL+18 

3510 

SETAL 

TWOADR 

SETAL 

TWOADR 

TRAPRC 

TRAPRC 

TROWT 

SENSES 

2 

SUMMER+5 

1»4 

3 

SUMMER+8 

1»4 

NEGSUM 

1.4 

SETAL 

MOVER 

ONEADR 

MOVER+2 

ONEADR 

SETAL 

NEGSUM 

SUMROW 



NEGSUM 



K 



00351 

00352 

00353 

00354 

00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00370 

00371 

00372 

T03 73 

00374 

003,75 

00376 

00377 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 

00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 • 

00430 

00431 

00432 

00433 

00434 

00435 

00436 

00437 










50000 
40000 
60100 

o o?ooo 

76600 
50000 
-0 32000 
76000 
40000 
40000 
60100 
50000 
6?100 
50000 
40000 
62100 
70000 
50000 
40200 
62100 
62100 
6? 100 
50000 
40000 
60100 

toooo 

50000 
40200 
62100 
40200 
1?000 
7n000 
50000 
40000 
62100 
50000 
40000 
62100 
70000 
50000 
40200 
62100 
70000 
40000 
62100 
40200 
•0 12000 
50000 
62100 
50000 
62100 
76000 
60200 
76600 
02000 







o 











01302 
00024 
00024 
4 00001 
00225 
00170 
01320 

00002 
00020 
01301 
00000 
00020 
00371 
00170 
01302 
00417 
00000 
00371 
01301 
00377 
00401 
00402 
00000 
00000 
00000 
00000 
00371 
01302 
00371 
00417 
00371 
01300 
01342 
01301 
00417 
00272 
01301 
00371 
00000 
00417 
01301 
00423 
00000 
01303 
00417 
00371 
00417 
01342 
00272 
00020 
00170 
00000 
00024 
00333 
4 00001 


























CLA 
ADD 
STO 
TRA 
RITTAP WTB 
CLA 
ANA 
CHS 
ADD 
ADD 
STO 
CLA 
STA 
CLA 
ADD 
STA 

0THER1 CPY 
CLA 
SUB 
STA 
STA 
STA 
CLA 
ADD 
STO 
CPY 
CLA 
SUB 
STA 
SUB 
TPL 
CPY 
CLA 
ADD 
STA 
CLA 
ADD 
STA 

0THER2 CPY 
CLA 
SUB 
STA 
CPY 
ADD 
STA 
SUB 
TMI 
CLA 
STA 
CLA 
STA 
CLM 
SLW 
IOD 
TRA 



TWOADR 

TRAPRC 

TRAPRC 

1*4 

5 

RESETJ 

MA5KAD 

ENDSTG 
ONEADR 
COMMON 
ENDSTG 
0THER1 
RESETJ 
TWOADR 
0THER2 

0THER1 

ONEADR 

0THER1+6 

0THER1+8 

0THER1+9 

COMMON 



0THER1 

TWOADR 

0THER1 

0THER2 

0THER1 

NOUGHT 

TORIGN 

ONEADR 

0THER2 

SETAL 

ONEADR 

0THER1 

0THER2 
ONEADR 
0THER2+4 

THREEA 

0THER2 

0THER1 

0THER2 

TORIGN 

SETAL 

ENDSTG 

RESETJ 

TRAPRC 

1*4 



SAVE 

INCREMENT 



?l* 



00440 


o snooo 00170 


MINUM9 CLA RESET J 


00441 


6?100 00454 


STA MINER 


00442 


40200 01301 


SUB ONEADR 


00443 


62100 00456 


STA MINER+2 


00444 


40200 01301 


SUB ONEADR 


00445 


62100 00170 


STA RESETJ 


00446 


50000 01302 


CLA TWOADR 


00447 


40000 00024 


ADO TRAPRC 


00450 


60100 00024 


STO TRAPRC 


00451 


56000 00076 


LDQ ROW+1 


00452 


53400 1 01303 


LXA THREEA.l 


00453 


07400 4 00763 


TSX C0NVER»4 


00454 


60100 ooooo 


MINER STO 


00455 


76000 00000 


CLM 


00456 


60200 00000 


SLW 


00457 


07400 4 00602 


TSX SELECT i 4 


00460 


02000 00144 


TRA TROWT 


00461 


76000 00144 


KICKRC SLN 4 


00462 


02000 00457 


TRA KICKRC-2 


00463 


77000 00205 


WEF 5 


00464 


77200 00205 


REW 5 


00465 


56000 00040 


PUKHV LDQ SENSES 


00466 


-0 77300 00003 


RQL 3 


00467 


16200 00503 


TOP PUMATR-6 


00470 


76600 00341 


WPU 


00471 


50000 00033 


CLA PARADR 


00472 


76500 00000 


LRS 


00473 


07400 4 01046 


TSX BPUNCH»4 


00474 


50000 00030 


CLA BHEDNG 


00475 


76500 00000 


LRS 


00476 


07400 4 01046 


TSX BPUNCH»4 


00477 


50000 01336 


CLA 2MAN2D 


00500 


40000 01340 


ADD VORIGN 


00501 


76500 00000 


LRS 


00502 


07400 4 01046 


TSX BPUNCH»4 


00503 


76600 00341 


WPU 


00504 


50200 01341 


CLS WORIGN 


00505 


76500 00043 


LRS 35 


00506 


50000 01336 


CLA 2MAN2D 


00507 


40000 01340 


ADD VORIGN 


00510 


07400 4 01046 


TSX BPUNCH*4 


00511 


56000 00040 


PUMATR LDO SENSES 


00512 


-0 77300 00002 


RQL 2 


00513 


16200 00542 


TQP ENDDA-3 


00514 


02000 00517 


TRA REEDT 


00515 


76400 00205 


BST 5 


00516 


42000 10421 


HPR 4369 


00517 


76200 00225 


REEDT RTB 5 


00520 


53400 4 01300 


LXA NOUGHT »4 


00521 


50000 01342 


CLA TORIGN 


00522 


62100 00524 


STA REEDT+5 


00523 


40000 01301 


ADD ONEADR 


00524 


70000 00000 


CPY 


00525 


1 00001 4 00522 


TXI REFDT+3.4il 


00526 


02000 00542 


TRA ENDDA-3 



10421 ERROR INDICATION 



r; 



00527 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 

00550 

00551 

00552 

00553 

00554 

00555 

00556 

00557 

00560 

00561 

00562 

00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 



76600 

77100 

77100 

-0 76000 

02000 

76600 

-0 75400 

-0 50100 

76500 

07400 

02000 

76600 

70000 

70000 

77200 

76200 

53400 







•0 



70000 
2 00001 
50200 
76500 
50000 
7400 
76000 
76200 
70000 
70000 



02000 



53400 
2 00113 
76600 
46000 
70000 

ooooi 

02000 
53400 
00113 
76600 



70000 
2 00001 
02000 
50000 
12000 
76200 
02000 
•0 63400 
56000 
16200 
07400 
0?000 
07400 
>0 5^400 
02000 
63400 



-0 









4 


4 






4 
4 
4 



4 






4 
4 


4 
4 

4 
4 

4 
4 


4 

4 
4 


4 

4 
4 
4 
4 



00333 
00355 
00355 
00012 
00515 
00341 
00000 
01342 
00000 
01046 

00517 
00341 
01300 
00025 
00205 
00303 
00032 

oom 

00550 
01342 

00043 
00032 
01046 
00140 
00321 
00000 

ooooi 

00000 

00565 

00571 

00567 

00302 

01325 

00327 

00571 

77754 

00577 

00576 

00302 

00547 

00577 

77754 

00040 

00001 

00321 

00001 

01377 

00040 

00613 

00616 

00614 

01241 

01377 

00001 

01376 



ENDDA 
PUID 



STASH2 



STASH 



SELECT 



READ IN 



RDCARD 



IOD 

ARS 

ARS 

RTT 

TRA 

WPU 

PXD 

OR A 

LRS 

TSX 

TRA 

WPU 

CPY 

CPY 

REW 

ROR 

LXD 

CPY 

TIX 

CLS 

LRS 

CLA 

TSX 

SLF 

RCD 

CPY 

CPY 

TRA 

ORG 

LXA 

TIX 

WDR 

LDA 

CPY 

TIX 

TRA 

LXA 

TIX 

WDR 

CPY 

TIX 

TRA 

CLA 

TPL 

RDS 

TRA 

SXD 

LDQ 

TQP 

TSX 

TRA 

TSX 

LXD 

TRA 

SXD 



237 
237 

REEDT-2 

0*4 
TORIGN 

BPUNCHi4 
REEDT 

NOUGHT 

MIZER 

5 

3 

HEDADR,4 

R0W+12»4 

PUID+2»4»1 

TORIGN 

35 

HEDADR 

BPUNCH»4 





1 



373 

STASH2+4.4 

STASH2+2t4»ROW+14 

2 

PDRORG 

REC/L2+5»4 

STASH2+4»4»1 

32748 

STASH+3«4 

STASH+2»4»R0W+14 

2 

ENDDA+2.4 

STASH+3»4,1 

32748 

SENSES 

1»4 

209 

1»4 

CB0XTW.4 

SENSES 

READIN+5 

RDCARD»4 

READIN+6 

RDBCDT»4 

CB0XTW»4 

1*4 

CB0X0Ni4 



PUSH LOAD BUTTON 



STORE SECOND ON DRUM 



RETURN TO CARD READER 



n 



00617 

00620 

00621 

00622 

00623 

00624 

00625 

00626 

00627 

00630 

00631 

00632 

00633 

00634 

00633 

00636 

00637 

00640 

00641 

00642 

00643 

00644 

00643 

00646 

00647 

00650 

00651 

00652 

00653 

00654 

00655 

00656 

00657 

00660 

00661 

00662 

00663 

00664 

00665 

00666 

00667 

00670 

00671 

00672 

00673 

00674 

00675 

00676 

00677 

00 700 

00701 

00702 

00703 

00704 

00705 








53400 

-0 63400 

-0 63400 

76000 

53400 

60200 

2 00001 

53400 

70000 

02000 

02000 

*0 63400 

-0 50000 

60100 

70000 

00003 

50000 

60200 

•0 50000 

-0 60200 

56000 

53400 

53400 

76000 

-0 76300 

73400 

50000 

32000 

76700 

60200 

76300 

73400 

50000 

-0 32000 

-0 60200 

00001 

56000 

00010 



-3 

-0 
♦0 











•0 


-0 
-0 





2 

2 



-0 53400 



-3 
2 







00000 

00001 

50000 

60100 

62200 

-0 50000 

76000 

60200 

-0 50000 

76000 

60200 

02000 

♦•3 00000 

76000 

62200 

62200 



01303 
00636 
00666 
00000 
00650 
00113 
00624 
00047 
00000 
00632 
00727 
4 00047 
4 00745 
00755 
00001 

4 00707 
00000 
00103 
00001 

00104 
00000 
00656 
00043 
00000 
00003 
00016 
00755 
00754 
00022 

5 00123 
00003 
00020 
00755 
00754 
00123 
00646 

00001 
4 00645 
00047 
00702 
00627 
00742 
00755 
00047 
00103 
00006 
00000 
00104 
00006 
00001 
00643 
4 00723 
00000 
00636 
00666 



4 
4 

4 






HAL 



PAUL 



JOHN 



DAVE 



MARTY 



EXIT 



LXA 


THREEA»4 


SXD 


PAUL* 4 


SXD 


MARTY»4 


CLM 




LXA 


J0HN+3»1 


SLW 


R0W+14.1 


TIX 


HAL-3»1.1 


LXA 


TWELVE»4 


CPY 


COMMON 


TRA 


HAL+3 


TRA 


EDITH+4 


SXD 


TWELVE»4 


CAL 


NINE5+12»4 


STO 


9T0Y 


CPY 


COMMON+l 


TXL 


TED»4.3 


CAL 


COMMON 


ORS 


ROW* 6 


CAL 


COMMON+l 


ORS 


ROW* 7 


LDO 


COMMON 


LXA 


DAVE»4 


LXA 


SIXADRtl 


CLM 




L6L 


3 


PAX 


14»2 


CLA 


9T0Y 


ANA 


MASK+7»2 


ALS 


18 


ORS 


R0W+22.5 


LGL 


3 


PAX 


16»2 


CLA 


9T0Y 


ANA 


MASK+7i2 


ORS 


R0W+22»5 


TIX 


J0HN+ltl»l 


LDQ 


COMMON+l 


TIX 


JOHN»4«8 


LXD 


TWELVE»4 


TXL 


EXIT.4 


TIX 


HAL»4.1 


CLA 


BLANK 


STO 


9T0Y 


STD 


TWELVE 


CAL 


R0W+6 


COM 




SLW 


COMMON 


CAL 


R0W+7 


COM 




SLW 


COMMON+l 


TRA 


JOHN-2 


TXL 


EDITH»4»0 


CLM 




STD 


PAUL 


STD 


MARTY 



Vf 



00706 

0070 7 

00 710 

00711 

00712 

00713 

00714 

00715 

00716 

00717 

00720 

00721 

00722 

00723 

00724 

00725 

00726 

00727 

00730 

00731 

00732 

00733 

00734 

00735 

00736 

00737 

00740 

00741 

00742 

00743 

00744 

00745 

00746 

00747 

00750 

00751 

00752 

00753 

00754 

00755 

00756 

00757 

00760 

00761 

00762 

00763 

00764 

00765 

00766 

00767 

00770 

00771 

00772 

00773 

00774 



02000 00667 

-0 50000 00000 
60200 00002 
-0 32000 00103 
60200 00000 
-0 50000 00002 
-0 60200 00103 
-0 50000 00001 
60200 00002 
-0 32000 00104 
60200 00001 
-0 50000 00002 
0?000 00642 
53400 4 00043 
50000 4 00113 
60100 4 00111 
2 00001 4 00724 
-0 5^400 4 01376 
02000 4 00001 
+000000111111 
+000000101010 
+000000070707 
+000000060606 
+000000050505 
+000000040404 
+000000030303 
+0OOO0OO2O2O2 
+000000010101 
+000000606060 
+000000404040 
+000000202020 
+000007777777 
+000000777700 
+000000770077 
+000000770000 
+000000007777 
+000000007700 
+000000000077 
+000000000000 
ooooo 00000 
53400 2 



-0 63400 2 



00043 
00041 



56000 00075 
53400 2 00046 
02000 4 

4 

4 





00001 
01376 
00041 
OOOOO 



02000 
-0 63400 
-0 53400 
-0 73400 

60200 OOOOO 
-0 76300 00006 

34000 00051 

42000 

76000 







60200 00001 
-0 76000 00142 








05252 

OOOOO 



TRA MARTY+1 
TED CAL COMMON 

SLW COMMON+2 

ANA ROW+6 

SLW COMMON 

CAL COMMON+2 

0R5 ROW+6 

CAL COMMON+1 

SLW COMMON+2 

ANA ROW+7 

SLW COMMON+1 

CAL COMMON+2 

TRA JOHN-3 
EDITH LXA SIXADRt4 

CLA R0W+14»4 

STO R0W+12*4 

TIX EDITH+1»4»1 

LXO CB0X0Nt4 

TRA 1»4 
NINES OCT Illlll»101010*070707»060606t050505 



OCT 040404»030303»020202»010101 



BLANK OCT 606060 »404040»202020 



MASK OCT 7777777, 777700»770077»770000t7777»7700i77.0 



9T0Y 
SETLIN 



CONVER 



PZE 
LXA 
SXD 
LDQ 
LXA 
TRA 
SXD 
LXD 
PXD 
SLW 
LGL 
CAS 
HPR 
CLM 
SLW 
MSE 



SIXADR»2 

POSIT »2 

ROW 

ELEVENS 

1»4 

CB0X0N»4 

P0SIT,4 

COMMON 
6 

BLANKK 
2730 

COMMON+l 
98 



5252ERROR INDICATION 



00775 

00776 

00777 

01000 

01001 

01002 

01003 

01004 

01005 

01006 

01007 

01010 

01011 

01012 

01013 

01014 

01015 

01016 

01017 

01020 

01021 

01022 

01023 

01024 

01025 

01026 

01027 

01030 

01031 

01032 

01033 

01034 

01035 

01036 

01037 

01040 

01041 

01042 

01043 

01044 

01045 

01046 

01047 

01050 

01051 

01052 

01053 

01054 

01055 

01056 

01057 

01060 

01061 

01062 

01063 



0?000 
76000 
00001 
53400 
56000 



2 






-2 00001 

-2 00001 

-0 76300 

60200 

0?000 

-0 32000 

40000 

60200 

00001 

53400 

56000 

-2 00001 

-2 00001 

16200 

-0 76300 

00001 

53400 




2 





2 




56000 



-2 

2 

-0 


-0 





ooooi 

00001 

63400 

50000 

32000 

10000 

50200 

02000 

50000 

-0 53400 

02000 

76700 

4f>000 

76700 

60200 

76000 

76300 

02000 

-0 63400 

60100 

73400 

77100 

40000 

62100 

62100 

16200 

76500 

-0 60000 

53400 

76600 

-2 00026 

-0 63400 








•0 





-0 








01007 

00000 

01003 

00043 

00111 

01003 

01026 

00006 

00000 

00777 

00050 

00000 

00000 

01016 

00043 

00111 

01016 

01026 

01037 

00006 

01025 

00043 

00111 

01025 

01020 

00041 

00052 

00001 

01034 

00000 

01035 

00000 

01376 

00001 

00002 

00000 

00001 

00000 

00000 

00006 

010/0 

01377 

00000 

00026 

00022 

00000 

01067 

01076 

01060 

00000 

00000 

01050 

00341 
01065 
00000 



CREEP 



CRAWL 



WALK 



RUN 



JUMP 



BPUNCH 



TRA 

CLM 

T!X 

LXA 

LDQ 

TNX 

TNX 

L6L 

SLW 

TRA 

ANA 

ADD 

SLW 

TIX 

LXA 

LDQ 

TNX 

TNX 

TQP 

L6L 

TIX 

LXA 

LDQ 

TNX 

TIX 

SXD 

CLA 

ANA 

TZE 

CLS 

TRA 

CLA 

LXD 

TRA 

ALS 

ADD 

ALS 

SLW 

CLM 

LGL 

TRA 

SXD 

STO 

PDX 

ARS 

ADD 

STA 

STA 

TQP 

LRS 

STQ 

LXA 

WRS 

TNX 

SXD 



CRAWL-1 

CREEP.4.1 

SIXADR*4 

ROW+12.2 

CREEP. 2.1 

RUN+ltltl 

6 

COMMON 

CREEP-4 

0CT17 

COMMON 

COMMON 

WALK.4.1 

SIXADR»4 

ROW+12.2 

WAL£,2.1 

RUN+ltltl 

JUMP+2 

6 

RUN.4.1 

SIXADR.4 

ROW+12»2 

RUN. 2.1 

WALK+2.1.1 

POSIT. 4 

STEST 

COMMON+l 

JUMP-1 

COMMON 

JUMP 

COMMON 

CB0X0N.4 

1.4 

2 

COMMON 

1 

COMMON 

6 

CRAWL 

CB0XTW.4 

COMMON 

22.3 

18 

COMMON 

BPUNCH+17 

BPUNCH+24 

BPUNCH+10 

COMMON 
BPUNCH+2.4 
225 

BPUNCH+15.1.22 
COMMON .4 



// 



01064 


1 


00026 


1 


01066 


TXI 


BPUNCH+16,1,22 


01065 


-0 


63400 


1 


00000 


SXD 


COMMON »1 


01066 


-0 


50000 





00000 


CAL 


COMMON 


01067 





36100 


1 


00000 


ACL 


0,1 


01070 


-2 


ooooi 


1 


01072 


TNX 


BPUNCH+20,1,1 


01071 


2 


00001 


4 


01067 


TIX 


BPUNCH+17,4,1 


01072 





60200 





00001 


SLW 


COMMON+1 


01073 


-0 


53400 


4 


00000 


LXD 


COMMON* 4 


01074 





70000 





00000 


CPY 


COMMON 


01075 





70000 





00001 


CPY 


COMMON+1 


01076 





70000 


2 


00000 


CPY 


0,2 


01077 


-2 


00001 


2 


01105 


TNX 


BPUNCH+31,2,1 


01100 


2 


00001 


4 


01076 


fix 


BPUNCH+24,4,1 


01101 





50000 





00000 


CLA 


COMMON 


01102 





40200 





01050 


SUB 


BPUNCH+2 


01103 





62100 





00000 


STA 


COMMON 


01104 





0?000 





01060 


TRA 


BPUNCH+10 


01105 


-0 


53400 


4 


01377 


LXD 


CB0XTW»4 


01106 





02000 


4 


00001 


TRA 


1,4 


01107 


-0 


63400 


4 


01376 


DTOBCV SXD 


CB0X0N»4 


OHIO 


-0 


53400 


4 


00041 


LXD 


POSIT, 4 


01111 





50000 





01300 


CLA 


NOUGHT 


01112 





60200 





00000 


SLW 


COMMON 


01113 


-0 


76300 





00006 


LGL 


6 


01114 





34000 





00051 


CAS 


BLANKK 


01115 





42000 





05252 


HPR 


2 730 


01116 





76000 





00000 


CLM 




01117 





60200 





00002 


SLW 


COMMON+2 


01120 





76000 





00000 


CLM 




01121 





76000 





00142 


SLN 


2 


01122 





02000 





01126 


TRA 


SAID 


01123 


-0 


76300 





00006 


WHO LGL 


6 


01124 





40000 





00000 


ADD 


COMMON 


01125 





60200 





00000 


SLW 


COMMON 


01126 


2 


OOOOI 


4 


01132 


SAID TIX 


THAT, 4,1 


01127 





53400 


4 


00043 


LXA 


SIXADR.4 


01130 





56000 


2 


00111 


LDQ 


ROW+12,2 


01131 


-2 


00001 


2 


01132 


TNX 


THAT,2,1 


01132 





16200 





01143 


THAT TOP 


SHE 


01133 


-0 


76000 





00142 


SLT 


2 


01134 





02000 





01151 


TRA 


KNEW 


01135 





60200 





00001 


SLW 


COMMON+1 


01136 


-0 


76300 





00006 


LGL 


6 


0U37 





76000 





00000 


CLM 




01140 





60200 





00000 


SLW 


COMMON 


01141 





53400 


1 


01300 


LXA 


NOUGHT.l 


01142 





0?000 





01126 


TRA 


SAID 


01143 





76700 





00002 


SHE ALS 


2 


01144 





40000 





00000 


ADD 


COMMON 


01145 





76700 





ooooi 


ALS 


1 


01146 





60200 


o 


00000 


SLW 


COMMON 


01147 





76000 





00000 


CLM 




01150 


1 


00001 


1 


01123 


TXI 


WH0,1»1 


01151 





56000 


1 


00064 


KNEW LDQ 


RFACTR.l 


01152 





22000 


1 


000 74 


DVH 


POWTEN.l 



5252 ERROR INDICATION 



p- 



01153 

01154 

01155 

01156 

01157 

01160 

01161 

01162 

01163 

01164 

01165 

01166 

01167 

01170 

01171 

01172 

01173 

01174 

01175 

01176 

01177 

01200 

01201 

01202 

01203 

01204 

01205 

01206 

01207 

01210 

01211 

01212 

01213 

01214 

01215 

01216 

01217 

01220 

01221 

01222 

01223 

01224 

01225 

01226 

01227 

01230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01240 

01241 



50000 
32000 
10000 
50200 
02000 
50000 
76500 
53400 
02000 
63400 
53400 
53400 
75400 
60200 
■0 76300 
34000 
42000 
76000 
60200 
76000 
00001 
53400 
56000 
00001 
76300 
32000 
40000 
00001 
60200 
76700 
40000 
76700 
60200 
02000 
76000 
02000 
60200 
53400 
76000 
60200 
0?000 
56000 
22000 
50000 
32000 
10000 
50200 
02000 
50000 
76500 
53400 
02000 
76400 
42000 
76200 



-0 



-0 









2 



00002 
00052 
01160 
00001 
01161 
00001 
00000 
01376 
00001 
01376 
00041 
00042 
00000 
00000 
00006 
00051 
05252 
00000 
00002 
00142 
01203 
00043 
00111 
01203 
00006 
00050 
00000 
01215 
00000 
00002 
00000 
00001 
00000 
01177 
00142 
01224 



0-00001 
00044 
00000 
00000 
01177 
00053 
00054 
00002 
00052 
01233 
00001 
01234 
00001 
00000 
01376 
00001 
00201 
04444 
00201 



ABOUT 
MALES 



SPECIL 



THERE 



WASA 



YOUNG 



LADY 



FROM 
YALE 



CURSE 
RDBCDT 



CLA 
ANA 
T?E 
CLS 
TRA 
CLA 
LRS 
LXD 
TRA 
SXD 
LXD 
LXA 
PXD 
SLW 
LGL 
CAS 
HPR 
CLM 
SLW 
PSE 
TIX 
LXA 
LDQ 
TNX 
LGL 
ANA 
ADD 
TNX 
SLW 
ALS 
ADD 
ALS 
SLW 
TRA 
MSE 
TRA 
SLW 
LXA 
CLM 
SLW 
TRA 
LDO 
DVH 
CLA 
ANA 
TZE 
CLS 
TRA 
CLA 
LRS 
LXD 
TRA 
BST 
HPR 
RTD 



COMMON+2 

STEST 

ABOUT 

COMMON+1 

MALES 

COMMON+1 



CB0X0N»4 

lt4 

CB0X0N»4 

P0S!T»4 

FOURADtl 

COMMON 

6 

BLANKK 

2730 

COMMON+2 

98 

WASA»4tl 

SIXADR»4 

ROW+12»2 

WASA»2»1 

6 

0CT17 

COMMON 

YOUNG tl»l 

COMMON 

2 

COMMON 

1 

COMMON 

THERE 

98 

LADY 

COMMON+1 

SEVEN »1 

COMMON 

THERE 

ROUNDR 

10T06 

COMMON+2 

STEST 

FROM 

COMMON+1 

YALE 

COMMON+1 



CB0X0N»4 

1»4 

1 

2340 

1 



CLEAR ACC 



5252 ERROR INDICATION 



4444 ERROR INDICATION 
READ BCD TAPE 



n 



01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 

■ # 

00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 



53400 1 
70000 1 
2 00001 1 
76600 
77100 
77100 

-0 76000 
02000 
02000 4 

+0000000000 

07400 4 
07400 4 
50000 
40200 
10000 
50000 
40200 
10000 
50000 
40200 
10000 
07400 4 
07400 4 
53400 1 
07400 4 
53400 1 
07400 4 
76700 
40000 
62100 
40000 
62100 
40200 
40200 

-0 12000 
42000 

-0 50000 
76700 

-0 76000 
02000 
07400 4 
02000 







07400 4 
-0 60000 
76500 
10000 

76300 
-0 50100 
60100 
50000 
02000 
76300 
56000 










.0 





76300 



01253 

00113 

01243 

00333 

00355 

00355 

00012 

01237 

00001 

16 

00113 

00602 

00606 

00075 

00036 

00261 

00075 

00035 

00261 

00075 

00034 

00261 

00602 

00756 

00043 

00763 

01303 

00763 

00001 

01341 

00175 

01301 

00176 

01341 

01335 

00145 

07770 

00040 

00001 

00001 

00153 

01164 

00154 

01107 

00000 

00023 

00164 

00013 

00202 

00000 

00203 

00173 

00023 

00000 

00010 



14ADR 

START2 
RHSIDE 



CARRY 



OK 



OKA 



LXA 
CPY 
TIX 
100 
ARS 
AR5 
RTT 
TRA 
TRA 
DEC 
ORG 
TSX 
T5X 
CLA 
SUB 
TZE 
CLA 
SUB 
TZE 
CLA 
SUB 
TZE 
TSX 
TSX 
LXA 
TSX 
LXA 
TSX 
ALS 
ADD 
STA 
ADD 
STA 
SUB 
SUB 
TM1 
HPR 
CAL 
ALS 
P8T 
TRA 
TSX 
TRA 
TSX 
STQ 
LRS 
TZE 
LLS 
ORA 
STO 
CLA 
TRA 
LLS 
LDQ 
LLS 



14ADRtl 

ROW+14.1 

CURSE+3.1.1 

237 
237 

CURSE-1 

1.4 

14 

R0W+14 

SELECT»4 

READ!N,4 

ROW 

NEXTB 

BREAK 

ROW 

MATRIX 

BREAK 

ROW 

NOMATR 

BREAK 

SELECT»4 

5ETLIN»4 

SIXADR.1 

CONVERT 

THREEAil 

C0NVER»4 

1 

WORIGN 

SAVHt+4 

ONEADR 

SAVHI+5 

WORIGN 

2MAPD2 

CARRY 

4088 

SENSES 

1 

OK 

SPECIL»4 

OK+l 

DT0BCV*4 

COMMON 

19 

OKA 

11 

BIGCH 

COMMON 

136ADR 

SAVHI+2 

19 

COMMON 

8 



TO ROW 



SENSE BIT 2 
INDICATES NEW 
OLD FORMAT 



OR 



rt 



00167 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00200 

00201 

00202 

00203 

00204 

00205 

00206 

00207 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00250 

00251 

00252 

00253 

00254 

00255 



10000 
-0 50100 



00171 
00200 



60100 00000 
50000 00201 
76300 00033 
30000 00000 
60100 00000 
-0 60000 00000 
02000 00114 
+223000000000 
+000000000170 
+243000000000 
+000000000210 
-0 63400 4 01376 
50000 00042 
-0 3?000 00040 
-0 10000 00257 
50000 00031 



SAVH! 



73400 
76700 
40000 
62100 
40000 
62100 



53400 



00000 
00001 
01341 
00255 
01301 
00256 
01335 



50000 01341 
40000 01335 
62100 00246 
40000 01301 

62100 00250 

1 00001 2 00226 

2 00002 1 00227 
2 00001 2 00226 
14000 00231 



-0 75400 
77100 

-0 73400 
50000 
62100 



00000 
00001 
00000 
01340 
00242 



76000 00000 
56000 01300 
60100 00000 
-0 60000 00001 
50000 2 00000 
2 00001 2 00244 
10000 00246 
12000 00253 
50200 1 00000 
10000 00253 
56000 1 00000 
76500 00000 
07400 4 00371 
50000 00000 
2 00002 1 00240 
60100 00000 



HICHAR 
LOCHAR 
BIGCH 
136AOR 
PUNCHS 



PUNK 



EMPTY 



TZE 

ORA 

STO 

CLA 

LLS 

FAD 

STO 

STQ 

TRA 

OCT 

DEC 

OCT 

DEC 

SXD 

CLA 

ANA 

TNZ 

CLA 

PAX 

ALS 

ADD 

STA 

ADD 

STA 

LXA 

CLA 

ADD 

STA 

ADD 

STA 

TXI 

TIX 

TIX 

TOV 

PXD 

ARS 

PDX 

CLA 

STA 

CLM 

LDO 

STO 

STO 

CLA 

TIX 

TZE 

TPL 

CLS 

TZE 

LDQ 

LRS 

TSX 

CLA 
TIX 

STO 



SAVH I 

HICHAR 

COMMON 

LOCHAR 

27 

COMMON 



RHSIDE 

223000000000 

120 

243000000000 

136 

CB0X0N»4 

FOURAD 

SENSES 

PUN 

SUMROW 

0,2 

1 

WORIGN 

PUN-2 

ONEADR 

PUN-1 

2MAND2»1 

WORIGN 

2MAND2 

PUN-9 

ONEADR 

PUN-7 

PUNK, 2 #1 

PUNK+1,1,2 

PUNK,2»1 

PUNK+3 

0,1 

1 

0,2 

VORIGN 

EMPTY 

NOUGHT 

COMMON 

COMMON+1 

0,2 

EMPTY+2,2,1 

EMPTY+4 

PUN-4 

0,1 

PUN-4 

0,1 

DPFADD,4 

COMMON 

EMPTY-2,1,2 



?* 



00256 

00257 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 

00307 

00310 

00311 

00312 

00313 

00314 

00315 

00316 

00317 

00320 

00321 

00322 

00323 

00324 

00325 

00326 

00327 

00330 

00331 

00332 

00333 

00334 

00335 

00336 

00337 

00340 

00341 

00342 

00343 

00344 








-0 60000 
-0 53400 
02000 
7400 
50000 
76000 
02000 
76600 
50000 
40000 
76500 
07400 
50000 
40000 
62100 
53400 
76000 
60200 
2 00001 
50000 
40200 
10000 
02000 
-0 50100 
60100 
50000 
62100 
40000 
62100 
62100 
53400 
50000 
60100 
2 00001 
76600 
46000 
70000 
2 00001 
50000 
40200 
40000 
60100 
50000 
40000 
62100 
62100 
50000 
40000 
62100 
62100 
50000 
60100 
53400 
36100 
2 00001 















4 
4 
4 







4 



4 

4 
4 












5 
4 
4 
4 


1 
1 














3 

1 
1 



00000 

01376 

00001 

00204 

00040 

00001 

00305 

00341 

01336 

01341 

00000 

01046 

01341 

01335 

00277 

01335 

00000 

00000 

00277 

00075 

00036 

00113 

00420 

01301 

00040 

01341 

00316 

01335 

00315 

00322 

01335 

00000 

00000 

00315 

00304 

01324 

00000 

00322 

01330 

01327 

01334 

00362 

01337 

01334 

00343 

00353 

01340 

01335 

00346 

00357 

01300 

01377 

00362 

00000 

00343 



PUN 
BREAK 



CLRW 



STKHV 



MOVEB 



BTODR 
PREF 



5TS0L 



KHSUM 



STQ 

LXD 

TRA 

TSX 

CIA 

LBT 

TRA 

WPU 

CLA 

ADD 

IRS 

TSX 

CLA 

ADD 

STA 

LXA 

CLM 

SLW 

TTX 

CLA 

SUB 

T2E 

TRA 

ORA 

STO 

CLA 

STA 

ADD 

STA 

STA 

LXA 

CLA 

STO 

TIX 

WDR 

LDA 

CPY 

TIX 

CLA 

SUB 

ADO 

STO 

CLA 

ADD 

STA 

STA 

CLA 

ADD 

STA 

STA 

CLA 

STO 

LXA 

ACL 

TIX 



CB0X0Nt4 

1»4 

PUNCHB.4 

SENSES 

STKHV 

2MAN2D 
WORIGN 

BPUNCH.4 
WORIGN 
2MAND2 
CLRW 

2MAND2»4 

0»4 

CLRW. 4*1 

ROW 

NEXTB 

RHSIDE-1 

STMAX 

ONEADR 

SENSES 

WORIGN 

MOVEB+l 

2MAND2 

MOVEB 

BTODR 

2MAND2.5 

0*4 

0.4 

MOVEB. 4.1 

4 

BDRO-RG 

0.1 

BTODR. 1.1 

HDRORG 

KDRORG 

1MAND1 

COUNT 

HORIGN 

1MAPD1 

KHSUM 

K2DRM 

V0R1GN 

2MAND2 

VSUM 

K2DRM+4 

NOUGHT 

CBOXTW 

COUNT. 3 

0.1 

KHSUM.1.1 



GO SUM RIGHT HAND SIDE 



NO OF WORDS IN CONSTANTS AND H 



f<* 



00345 
00346 
00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
0040 7 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 



53400 
36100 





2 











-0 





2 
2 



4 
4 








2 00001 1 
60200 
76600 
46000 
70000 
00001 
76600 
46000 
70000 
2 00001 
02000 
00000 
77200 
50000 
62200 
62100 
0?000 
76200 
60000 
30000 
16100 
60100 
60000 
5O000 
3^000 
76000 
02000 
76000 
14000 
30000 
U100 
30000 
60000 



30000 
16100 
14000 
02000 
50000 
56000 
14000 
02000 
50000 
40000 
62100 
40000 
69100 
50000 
56000 
60100 
60000 
02000 



00113 76200 



01335 
00000 
00346 
01377 
00301 
01327 
00000 
00353 
00301 
01331 
00000 
00357 
00272 
00000 
00205 
00370 
00576 
00601 
00574 
00113 
00002 
00000 
00414 
00003 
00004 
00002 
00001 
00001 
00404 
00000 
00404 
00004 
00406 
00003 
00002 
00002 
00414 
00417 
00001 
01300 
01300 
00417 
00002 
01340 
01346 
00425 
01301 
00426 
00000 
00000 
01372 
01373 
00363 
00113 
00321 



VSUM 



K2DRM 



COUNT 
RECALL 



DPFADD 



ADUNFL 



AOOVFL 



STMAX 



START 



LXA 
ACL 
TIX 
SLW 
WDR 
LDA 
CPY 
TIX 
WDR 
LDA 
CPY 
TIX 
TRA 
HTR 
REW 
CLA 
STD 
STA 
TRA 
RDS 
STQ 
FAD 
TQO 
STO 
STQ 
CLA 
FAD 
PBT 
TRA 
CLM 
TOV 
UFA 
TQO 
FAD 
STQ 
FAD 
TQO 
TNO 
TRA 
CLA 
LDQ 
TOV 
TRA 
CLA 
ADD 
STA 
ADD 
STA 
CLA 
LDQ 
STO 
STQ 
TRA 
ORG 
RCD 



2MAND2»5 

Oil 

VSUMtltl 

CBOXTW 

1 

KDRORG 

0.2 

K2DRMi2»l 

1 

VDRORG 

0.4 

K2DRM+4»4»1 

CLRW-5 



RECALL+4 

STASH+2 

STASH+5 

STASH 

START 

COMMON+2 

COMMON 

ADOVFL+2 

C0MM0N+3 

C0MM0N+4 

COMMON+2 

COMMON+l 

ADUNFL+4 

ADUNFL+4 

COMMON+4 

ADUNFL+6 

C0MM0N+3 

COMMON+2 

COMMON+2 

ADOVFL+2 

ADOVFL+5 

1*4 

NOUGHT 

NOUGHT 

ADOVFL+5 

2t4 

V0RI6N 

PRICEX 

STMAX+5 

ONEADR 

STMAX+6 



HIMAXV 
LOMAXV 
RECALL-1 
ROW+14 



ADDEND IN ACC-MQ, AUGEND IN 

COMMON-COMMON+1 
LO-PART OVERFLOW IMPOSSIBLE 
IF HI-PART ZERO SO IS LO-PART 
NORMALIZED NUMBERS 



FOR 



OVERFLOW IMPOSSIBLE ON LO-PARTS 
UNDERFLO IMPOS IF HI-PARTS OVERFLOWED 
CLEAR ACC TOGGLE 

CLEAR MQ TUGGLE 

ALIGN CHARACTERISTICS 



CLR TOGGLE AFTER DOUBLE UNDFLO 



c 11 



00114 

00115 

00116 

00117 

00120 

00121 

00122 

00123 

00124 

00125 

00126 

00127 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00200 

00201 

00202 



70000 
76000 
76300 
12000 
77200 
77200 
07400 
07400 
56000 
76300 
50000 
76500 
60000 
76600 
53400 
70000 
00001 
07400 
07400 
07400 
53400 
07400 
40000 
62100 
76700 
62100 




2 










76700 
62200 
76700 
62200 
50000 
62100 
40000 
60100 
40000 
60100 
40000 
62100 
53400 
07400 
60100 
53400 
07400 
60100 
76700 
60100 
40200 
60100 
50000 
40200 
60100 
53400 
07400 
60100 
50000 













00040 
00140 
00000 
00121 
00201 
00205 
00602 
00606 
00075 
00005 
01301 
00005 
00075 
00303 
00032 
00111 
00133 
00602 
00606 
00756 
00045 
00763 
01301 
01334 
00001 
01335 
00022 
01336 
00001 
00232 
01337 
00030 
01334 
01340 
01335 
01341 
01335 
00234 
00045 
00763 
01343 
00045 
00763 
01345 
00001 
01347 
01302 
01346 
01353 
01335 
01353 
00045 
00763 
00031 
00102 



REW5 



ID2DR 



CPY 


SENSES 


SLF 




LLS 





TMI 


REW5 


REW 


1 


REW 


5 


TSX 


SELECT, 4 


TSX 


READINt4 


LOQ 


ROW 


LGL 


5 


CLA 


ONEADR 


LR5 


5 


STQ 


ROW 


WDR 


3 


LXD 


HEDADR»4 


CPY 


R0W+12*4 


TIX 


ID2DR+2.4tl 


TSX 


SELECT»4 


TSX 


READIN»4 


TSX 


SETLINt4 


LXA 


TENADR»1 


TSX 


C0NVER«4 


ADD 


ONEADR 


STA 


1MAND1 


ALS 


1 


STA 


2MAND2 


ALS 


18 


STD 


2MAN2D 


ALS 


1 


STD 


CLEAR+1 


CLA 


HORIGN 


STA 


BHEDNG 


ADD 


1MAND1 


STO 


VORIGN 


ADD 


2MAND2 


STO 


WORIGN 


ADD 


2MAND2 


STA 


CLEAR+3 


LXA 


TENADRtl 


TSX 


CONVERT 


STO 


FAZTYP 


LXA 


TENADR»1 


TSX 


C0NVER»4 


STO 


FA2NUM 


ALS 


1 


STO 


FFASYX 


SUB 


TWOADR 


STO 


PRICEX 


CLA 


DR3END 


SUB 


2MAND2 


STO 


DR3END 


LXA 


TENADRfl 


TSX 


C0NVER*4 


STO 


SUMROW 


CLA 


ROW4-5 



. n 



\ 



•00203 





12000 





00206 


00204 





50000 





00042 


00205 


-0 


60200 





00040 


00206 





53400 


1 


00045 


00207 





07400 


4 


00763 


00210 





60100 





01344 


00211 





53400 


4 


00316 


00212 


-0 


50000 


4 


01343 


00213 





60200 


4 


00316 


00214 





36100 





00271 


00215 





60200 





00271 


00216 


2 


00001 


4 


00212 


00217 





50000 





00212 


00220 





62100 





00276 


00221 


-0 


50000 





00276 


00222 





36100 





002 71 


00223 





60200 





00271 


00224 





76600 





00341 


00225 


-0 


53400 


4 


00316 


00226 





70000 


4 


00316 


00227 


2 


00001 


4 


00226 


00230 





07400 


4 


00602 


00231 





53400 


4 


01334 


00232 


1 


00000 


4 


00233 


00233 





76000 





00000 


00234 





60200 


4 


00000 


00235 


2 


00001 


4 


00234 


00236 





07400 


4 


00606 


00237 





50000 





00075 


00240 





40200 





00037 


00241 





10000 





00317 


00242 





07400 


4 


00602 


00243 





07400 


4 


00756 


00244 





53400 


4 


00044 


00245 


-0 


63400 


4 


00044 


00246 





53400 


1 


01303 


00247 





07400 


4 


00763 


00250 





40000 





01337 


00251 





62100 





00260 


00252 





4O200 





01340 


00253 


-0 


12000 





00255 


00254 





42000 





07777 


00255 





53400 


1 


00043 


00256 





76000 





00142 


00257 





07400 


4 


00763 


00260 





60100 





00000 


00261 





53400 


1 


01301 


00262 





07400 


4 


00763 


00263 


-0 


53400 


4 


00044 


00264 


2 


00001 


4 


00245 


O0265 





02000 





00236 


00266 





53400 


4 


00000 


00267 





70000 


4 


00002 


00270 


1 


77777 


4 


00001 


00271 


+000000000000 



SKIP5R 



PUNOR 



CLEAR 



BASISH 



ORGCD 



TPL 
CLA 
ORS 
LXA 
TSX 
STO 
LXA 
CAL 
SLW 
ACL 
SLW 
TIX 
CLA 
STA 
CAL 
ACL 
SLW 
WPU 
LXO 
CPY 
TIX 
TSX 
LXA 
TXI 
CLM 
SLW 
TIX 
TSX 
CLA 
SUB 
TZE 
TSX 
TSX 
LXA 
SXO 
LXA 
TSX 
ADD 
STA 
SUR 
TMI 
HPR 
LXA 
SLN 
TSX 
STO 
LXA 
TSX 
LXD 
TIX 
TRA 
LXA 
CPY 
TXI 
DEC 



SKIPSR 

FOURAD 

SENSES 

TENADR»1 

C0NVER#4 

ARBTRS 

CNTS»4 

FAZTYP.4 

CNTSt4 

ORGCD+3 

ORGCD+3 

PUNOR+1.4.1 

PUNOR+l 

0RGCD+8 

0R6CD+8 

ORGCD+3 

ORGCD+3 

CNTS»4 

CNTS.4 

PUN0R+13»4tl 

SELECT. 4 

1MAND1.4 

CLEAR+2»4#0 

0*4 

CLEAR+3»4tl 

READIN»4 

ROW 

FIRSTB 

RECAL2-3 

SELECT.4 

SETLIN»4 

SEVEN »4 

SEVEN »4 

THREEA.l 

C0NVER»4 

H0RI6N 

BASISH+17 

VORIGN 

BASISH+14 

4095 

SlXADRtl 

2 

C0NVER»4 

0NEADR»1 

C0NVER.4 

SEVEN .4 

BASlSH+6*4tl 

BASISM-1 

0»4 

2»4 

1»4*-1 



CHECK SUM 





* 








\%02^v 


f»0 76000 


00007 


UTM 




> 00273 


© ,§3400 4 


00013 


LXA 


11»4 


0027* 


»0 ''50000 


00010 


CAL 


8 


002*75 


56000 4 


00030 


LDQ 


24.4 


00276 


-0^60000 4 


00000 


STQ 


0»4 


00277 


36100 4 


00030 


ACL 


24.4 


00300 


2 00001 4 


00007 


TTX 


7»4.1 


00301 


60200 


00005 


SLW 


3 


00302 


0: 50000 


00005 


CLA 


5 


00303 


"0 40200 


00003 


SUB 


3 ' 


00304 


-0 10000 


00001 


TNZ 


1 


00305 


7620O 


00321 


RDS 


209 


00306 


70000 


00000 


CPY 




"00307 


70000 


00001 


CPY 


1 


00310 


02000 


QOOOO 


TRA 




00311 


♦oooooooooooo 


DEC 




00312 


♦oooooooooooo 


DEC 




00313 


♦oooooooooooo 


DEC 




00314 


+000000000000 


DEC 




00315 


+000000000000 


DEC 




00316 


00030 


00005 


CNTS P2E 


5»0»24 


00317 


53400 4 


01334 


LXA 


1MAND1.4 


0032O 


-0 63400 4 


00030 


SXD 


8HEDN6.4 


00321 


60200 


01400 


SLW 


768 


00322 


50000 


00326 


RECAL2 CLA 


RECAL2+4 


00323 


62200 


00567 


STD 


STASH2+2 


00324 


62100 


00573 


STA 


STASH2+6 


00325 


0?000 


00565 


TRA 


STASH2 


00326 


76200 


00113 


RDS 


START 






00113 


END 


START 



COPY CHECK IF CH SUM ERROR 



2MAN2D 
H0RI6N 
V0RI6N 
WORIGN 
TORIGN 






